cont-responder cleanup
parent
2fd9ea7fda
commit
51a38d8ca5
|
@ -176,8 +176,8 @@ SYMBOL: callback-cc
|
||||||
stdio get swap continue-with
|
stdio get swap continue-with
|
||||||
] callcc1
|
] callcc1
|
||||||
nip
|
nip
|
||||||
dup resume-stdio stdio set resume-value
|
dup resume-stdio stdio set
|
||||||
call
|
resume-value call
|
||||||
store-callback-cc stdio get
|
store-callback-cc stdio get
|
||||||
] callcc1 stdio set ;
|
] callcc1 stdio set ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue