in-thread ( quot -- )

Vocabulary

threads

Inputs

quot

an object

Outputs

None

Definition

USING: kernel kernel.private ;

IN: threads

: in-thread ( quot -- )
    [ get-datastack ] dip [ [ set-datastack ] curry ] dip
    compose "Thread" spawn drop ;