agenda: Fix 8sleep's time parameter.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sun, 11 Dec 2016 17:13:18 +0000 (11:13 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sun, 11 Dec 2016 17:13:18 +0000 (11:13 -0600)
* 8sync/agenda.scm (8sleep): Wrap time parameter in tdelta before passing
  to make-run-request.

8sync/agenda.scm

index 223900814e68f9be3c32e4ae405d71d489a9c8ea..118bb28d9a53374af007ab0826e08c30b0e4b29f 100644 (file)
@@ -477,7 +477,7 @@ forge ahead in our current function!"
   (8sync-abort-to-prompt
    (make-async-request
     (lambda (kont)
-      (make-run-request (lambda () (kont #f)) time)))))
+      (make-run-request (lambda () (kont #f)) (tdelta time))))))
 
 ;; Voluntarily yield execution
 (define (yield)  ; @@: should this be define-inlinable?