steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bootstrap fix

slava 2006-07-17 06:39:46 +00:00
parent 49fccecd6d
commit 90e24aa9c2
2 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/io/unix/io.factor
View File

@ -305,4 +305,5 @@ 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 ;

19
library/threads.factor
View File

@ -19,22 +19,6 @@ namespaces queues sequences vectors ;
: sleep-time ( sorted-queue -- ms ) : sleep-time ( sorted-queue -- ms )
dup empty? [ drop 1000 ] [ peek first millis [-] ] if ; dup empty? [ drop 1000 ] [ peek first millis [-] ] if ;
! DEFER: next-thread
!
! : do-sleep ( -- continuation )
! sleep-queue* dup sleep-time dup zero?
! [ drop pop second ] [ nip io-multiplex next-thread ] if ;
!
! : next-thread ( -- continuation )
! run-queue dup queue-empty? [ drop do-sleep ] [ deque ] if ;
!
! : stop ( -- ) next-thread continue ;
!
! : init-threads ( -- )
! global [
! <queue> \ run-queue set
! V{ } clone \ sleep-queue set
! ] bind ;
: stop ( -- ) run-queue deque continue ; : stop ( -- ) run-queue deque continue ;
: yield ( -- ) [ schedule-thread stop ] callcc0 ; : yield ( -- ) [ schedule-thread stop ] callcc0 ;
@ -64,5 +48,4 @@ 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 ;