@@ -234,7 +234,7 @@ abortive action" which causes the stack to be unwound.
234
234
235
235
236
236
``` wast
237
- resume_throw $ct $exn (tag $e $l)* : [tp* (ref $ct)])] -> [tr*]
237
+ resume_throw $ct $exn (on $e $l)* : [tp* (ref $ct)])] -> [tr*]
238
238
where:
239
239
- $ct = cont [ta*] -> [tr*]
240
240
- $exn : [tp*] -> []
@@ -423,7 +423,7 @@ We now define a scheduler.
423
423
(loop $l
424
424
(if (call $queue-empty) (then (return)))
425
425
(block $on_yield (result (ref $cont))
426
- (resume $cont (tag $yield $on_yield)
426
+ (resume $cont (on $yield $on_yield)
427
427
(call $dequeue)
428
428
)
429
429
(br $l) ;; thread terminated
@@ -598,8 +598,8 @@ thread to completion without actually yielding.
598
598
(if (ref.is_null (local.get $nextk)) (then (return)))
599
599
(block $on_yield (result (ref $cont))
600
600
(block $on_fork (result (ref $cont) (ref $cont))
601
- (resume $cont (tag $yield $on_yield)
602
- (tag $fork $on_fork)
601
+ (resume $cont (on $yield $on_yield)
602
+ (on $fork $on_fork)
603
603
(local.get $nextk)
604
604
)
605
605
(local.set $nextk (call $dequeue))
@@ -673,8 +673,8 @@ schedulers.
673
673
(if (ref.is_null (local.get $nextk)) (then (return)))
674
674
(block $on_yield (result (ref $cont))
675
675
(block $on_fork (result (ref $cont) (ref $cont))
676
- (resume $cont (tag $yield $on_yield)
677
- (tag $fork $on_fork)
676
+ (resume $cont (on $yield $on_yield)
677
+ (on $fork $on_fork)
678
678
(local.get $nextk)
679
679
)
680
680
(local.set $nextk (call $dequeue))
@@ -697,8 +697,8 @@ schedulers.
697
697
(if (ref.is_null (local.get $nextk)) (then (return)))
698
698
(block $on_yield (result (ref $cont))
699
699
(block $on_fork (result (ref $cont) (ref $cont))
700
- (resume $cont (tag $yield $on_yield)
701
- (tag $fork $on_fork)
700
+ (resume $cont (on $yield $on_yield)
701
+ (on $fork $on_fork)
702
702
(local.get $nextk)
703
703
)
704
704
(local.set $nextk (call $dequeue))
@@ -721,8 +721,8 @@ schedulers.
721
721
(if (ref.is_null (local.get $nextk)) (then (return)))
722
722
(block $on_yield (result (ref $cont))
723
723
(block $on_fork (result (ref $cont) (ref $cont))
724
- (resume $cont (tag $yield $on_yield)
725
- (tag $fork $on_fork)
724
+ (resume $cont (on $yield $on_yield)
725
+ (on $fork $on_fork)
726
726
(local.get $nextk)
727
727
)
728
728
(local.set $nextk (call $dequeue))
@@ -746,8 +746,8 @@ schedulers.
746
746
(if (ref.is_null (local.get $nextk)) (then (return)))
747
747
(block $on_yield (result (ref $cont))
748
748
(block $on_fork (result (ref $cont) (ref $cont))
749
- (resume $cont (tag $yield $on_yield)
750
- (tag $fork $on_fork)
749
+ (resume $cont (on $yield $on_yield)
750
+ (on $fork $on_fork)
751
751
(local.get $nextk)
752
752
)
753
753
(local.set $nextk (call $dequeue))
@@ -933,7 +933,7 @@ First we implement control/prompt.
933
933
(tag $control (export "control") (param (ref $cont-func))) ;; control : [([contref ([] -> [])] -> [])] -> []
934
934
(func $prompt (export "prompt") (param $nextk (ref null $cont)) ;; prompt : [(contref ([] -> []))] -> []
935
935
(block $on_control (result (ref $cont-func) (ref $cont))
936
- (resume $cont (tag $control $on_control)
936
+ (resume $cont (on $control $on_control)
937
937
(local.get $nextk))
938
938
(return)
939
939
) ;; $on_control (param (ref $cont-func) (ref $cont))
0 commit comments