>From 697b8780cb57a9720affc8216d194c211fdef49a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20F=2E=20Wittenberger?= Date: Sat, 20 Feb 2016 19:15:26 +0100 Subject: [PATCH] Fix missuse of predicate --- scheduler.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/scheduler.scm b/scheduler.scm index 997668f..7081acf 100644 --- a/scheduler.scm +++ b/scheduler.scm @@ -334,8 +334,7 @@ EOF (let ((entry (make-timeout-list-entry tm (list t)))) (##sys#setslot t 4 entry) (set! ##sys#timeout-list-head entry))) - ((fx> tm - (prio-queue-node-index ##sys#timeout-list-head)) + ((timeout< (prio-queue-node-index ##sys#timeout-list-head) tm) (let ((entry (timeout-queue-node-lookup ##sys#timeout-list tm))) (if entry (begin @@ -346,8 +345,7 @@ EOF (let ((entry (make-timeout-list-entry tm (list t)))) (##sys#setslot t 4 entry) (timeout-queue-node-insert! ##sys#timeout-list entry))))) - ((fx< tm - (prio-queue-node-index ##sys#timeout-list-head)) + ((timeout< tm (prio-queue-node-index ##sys#timeout-list-head)) (timeout-queue-node-insert! ##sys#timeout-list ##sys#timeout-list-head) (let ((entry (make-timeout-list-entry tm (list t)))) @@ -535,7 +533,7 @@ dunno what to do ;; Sleep for the number of milliseconds of next thread ;; to wake up. (let ((tmo (prio-queue-node-index (timeout-queue-next)))) - (##core#inline "C_msleep" (fxmax 0 (##core#inline "C_quickflonumtruncate" (fp- tmo now)))) ))))) + (##core#inline "C_msleep" (fpmax 0 (##core#inline "C_quickflonumtruncate" (fp- tmo now)))) ))))) (define (##sys#thread-block-for-timeout! t tm) (dbg t " blocks for timeout " tm) -- 2.6.2