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 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 ;