From ad2cc60c709045ba78a7957b149be86b4a21b49c Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 11 Dec 2016 11:13:18 -0600
Subject: [PATCH 1/1] agenda: Fix 8sleep's time parameter.

* 8sync/agenda.scm (8sleep): Wrap time parameter in tdelta before passing
  to make-run-request.
---
 8sync/agenda.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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?
-- 
2.31.1