init-initial-thread ( -- )

Vocabulary

threads.private

Inputs

None

Outputs

None

Definition

USING: accessors kernel namespaces threads ;

IN: threads.private

: init-initial-thread ( -- )
    [ ] "Initial" <thread> t >>runnable
    [ initial-thread set-global ] [ register-thread ]
    [ set-self ] tri ;