continuations: make with-return use with-variable instead of with-scope.
parent
d4e3adca57
commit
01e210346e
|
@ -100,7 +100,7 @@ PRIVATE>
|
||||||
SYMBOL: return-continuation
|
SYMBOL: return-continuation
|
||||||
|
|
||||||
: with-return ( quot -- )
|
: with-return ( quot -- )
|
||||||
[ [ return-continuation set ] prepose callcc0 ] with-scope ; inline
|
[ return-continuation ] dip [ with-variable ] 2curry callcc0 ; inline
|
||||||
|
|
||||||
: return ( -- * )
|
: return ( -- * )
|
||||||
return-continuation get continue ;
|
return-continuation get continue ;
|
||||||
|
|
Loading…
Reference in New Issue