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