From b8561fdc1d8325fcb5a7f86945af1a73a50c71e8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 5 Nov 2007 01:43:04 -0600 Subject: [PATCH] Change heap words in core/threads --- core/threads/threads.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/threads/threads.factor b/core/threads/threads.factor index 2cb7a3c3d0..074259dce6 100644 --- a/core/threads/threads.factor +++ b/core/threads/threads.factor @@ -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>