Fix threads
parent
6464a620cd
commit
7fb8b3c406
|
@ -213,6 +213,7 @@ GENERIC: error-in-thread ( error thread -- )
|
||||||
initial-thread global
|
initial-thread global
|
||||||
[ drop f "Initial" <thread> ] cache
|
[ drop f "Initial" <thread> ] cache
|
||||||
<box> >>continuation
|
<box> >>continuation
|
||||||
|
t >>runnable
|
||||||
f >>state
|
f >>state
|
||||||
dup register-thread
|
dup register-thread
|
||||||
set-self ;
|
set-self ;
|
||||||
|
|
Loading…
Reference in New Issue