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

Change heap words in core/threads

release
Doug Coleman 2007-11-05 01:43:04 -06:00
parent 1a86c5fd85
commit b8561fdc1d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/threads/threads.factor
View File

@ -17,15 +17,15 @@ M: sleeping <=> ( obj1 obj2 -- n )
: sleep-time ( -- ms ) : sleep-time ( -- ms )
sleep-queue get-global sleep-queue get-global
dup heap-empty? [ drop 1000 ] [ peek-heap sleeping-ms millis [-] ] if ; dup heap-empty? [ drop 1000 ] [ heap-peek sleeping-ms millis [-] ] if ;
: run-queue ( -- queue ) \ run-queue get-global ; : run-queue ( -- queue ) \ run-queue get-global ;
: schedule-sleep ( ms continuation -- ) : schedule-sleep ( ms continuation -- )
sleeping construct-boa sleep-queue get-global push-heap ; sleeping construct-boa sleep-queue get-global heap-push ;
: wake-up ( -- continuation ) : wake-up ( -- continuation )
sleep-queue get-global pop-heap sleeping-continuation ; sleep-queue get-global heap-pop sleeping-continuation ;
PRIVATE> PRIVATE>