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

View File

@ -17,15 +17,15 @@ M: sleeping <=> ( obj1 obj2 -- n )
: sleep-time ( -- ms )
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 ;
: 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 )
sleep-queue get-global pop-heap sleeping-continuation ;
sleep-queue get-global heap-pop sleeping-continuation ;
PRIVATE>