]
} case
] handle-synchronous
- ] [ ] while ;
+ ] while ;
: step-back-msg ( continuation -- continuation' )
walker-history tget
{ step-back [ step-back-msg ] }
} case f
] handle-synchronous
- ] [ ] while ;
+ ] while ;
: walker-loop ( -- )
+running+ set-status
[ walker-suspended ]
} case
] handle-synchronous
- ] [ ] until ;
+ ] until ;
: associate-thread ( walker -- )
walker-thread tset