Back out a threading change
parent
90e24aa9c2
commit
dc7159578b
|
@ -27,7 +27,7 @@ optimizer prettyprint sequences test threads words ;
|
||||||
: compile-vocabs ( vocabs -- )
|
: compile-vocabs ( vocabs -- )
|
||||||
[ words ] map concat
|
[ words ] map concat
|
||||||
dup [ f "no-effect" set-word-prop ] each
|
dup [ f "no-effect" set-word-prop ] each
|
||||||
[ try-compile yield ] each ;
|
[ try-compile ] each ;
|
||||||
|
|
||||||
: compile-all ( -- ) vocabs compile-vocabs ;
|
: compile-all ( -- ) vocabs compile-vocabs ;
|
||||||
|
|
||||||
|
|
|
@ -305,5 +305,4 @@ USE: io
|
||||||
H{ } clone write-tasks set
|
H{ } clone write-tasks set
|
||||||
FD_SETSIZE <byte-array> write-fdset set
|
FD_SETSIZE <byte-array> write-fdset set
|
||||||
0 1 <fd-stream> stdio set
|
0 1 <fd-stream> stdio set
|
||||||
[ idle-thread ] in-thread
|
|
||||||
] bind ;
|
] bind ;
|
||||||
|
|
|
@ -48,4 +48,5 @@ namespaces queues sequences vectors ;
|
||||||
|
|
||||||
: init-threads ( -- )
|
: init-threads ( -- )
|
||||||
<queue> \ run-queue set-global
|
<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