Fix threads

db4
Slava Pestov 2008-05-07 04:22:48 -05:00
parent 6464a620cd
commit 7fb8b3c406
1 changed files with 1 additions and 0 deletions
core/threads

View File

@ -213,6 +213,7 @@ GENERIC: error-in-thread ( error thread -- )
initial-thread global
[ drop f "Initial" <thread> ] cache
<box> >>continuation
t >>runnable
f >>state
dup register-thread
set-self ;