Back out a threading change

slava 2006-07-17 19:08:38 +00:00
parent 90e24aa9c2
commit dc7159578b
3 changed files with 3 additions and 3 deletions

View File

@ -27,7 +27,7 @@ optimizer prettyprint sequences test threads words ;
: compile-vocabs ( vocabs -- )
[ words ] map concat
dup [ f "no-effect" set-word-prop ] each
[ try-compile yield ] each ;
[ try-compile ] each ;
: compile-all ( -- ) vocabs compile-vocabs ;

View File

@ -305,5 +305,4 @@ USE: io
H{ } clone write-tasks set
FD_SETSIZE <byte-array> write-fdset set
0 1 <fd-stream> stdio set
[ idle-thread ] in-thread
] bind ;

View File

@ -48,4 +48,5 @@ namespaces queues sequences vectors ;
: init-threads ( -- )
<queue> \ run-queue set-global
V{ } clone \ sleep-queue set-global ;
V{ } clone \ sleep-queue set-global
[ idle-thread ] in-thread ;