cont-responder cleanup

slava 2006-04-28 04:03:41 +00:00
parent 2fd9ea7fda
commit 51a38d8ca5
1 changed files with 2 additions and 2 deletions

View File

@ -176,8 +176,8 @@ SYMBOL: callback-cc
stdio get swap continue-with
] callcc1
nip
dup resume-stdio stdio set resume-value
call
dup resume-stdio stdio set
resume-value call
store-callback-cc stdio get
] callcc1 stdio set ;