X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fagenda.scm;fp=8sync%2Fagenda.scm;h=118bb28d9a53374af007ab0826e08c30b0e4b29f;hp=223900814e68f9be3c32e4ae405d71d489a9c8ea;hb=ad2cc60c709045ba78a7957b149be86b4a21b49c;hpb=6ddb48051db9d47eaa28f3e7561622b145e3725a

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 2239008..118bb28 100644
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -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?