Back out a threading change
parent
90e24aa9c2
commit
dc7159578b
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue