callback-bottom ( params -- )

Vocabulary

stack-checker.alien

Inputs

params

an object

Outputs

None

Definition

USING: accessors alien kernel kernel.private
stack-checker.backend words ;

IN: stack-checker.alien

: callback-bottom ( params -- )
    "( callback )" <uninterned-word> >>xt dup
    [ xt>> ] [ varargs?>> ] bi "callback-varargs" set-word-prop
    xt>> '[ _ callback-xt { alien } declare ] infer-quot-here ;