Handbook
Glossary
do-callback ( callback-quot wait-quot: ( callback -- ) -- )
Vocabulary
alien
.
private
Inputs
callback-quot
an
object
wait-quot
a
quotation
with stack effect
( callback -- )
Outputs
None
Definition
USING:
combinators
continuations.private
kernel
kernel.private
namespaces
;
IN:
alien.private
:
do-callback
( callback-quot wait-quot: ( callback -- ) -- )
t
CONTEXT-OBJ-IN-CALLBACK-P
set-context-object
init-namestack
init-catchstack
current-callback
[
2drop
call
]
[
swap
( callback -- )
call-effect
drop
]
3bi
;
inline