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 @ ] "Thread" spawn
    drop ;