From af41faedcd01b6f50a42841473fb69c52a50f5b1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Jul 2014 14:34:28 -0400
Subject: Ensure that agenda scheduling procedures return no value.

* sly/agenda.scm (%schedule): Return unspecified.
---
 sly/agenda.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sly/agenda.scm b/sly/agenda.scm
index 016101b..e0f6114 100644
--- a/sly/agenda.scm
+++ b/sly/agenda.scm
@@ -156,7 +156,8 @@ and enqueue CALLBACK."
 
     (if (belongs-before? (agenda-segments agenda))
         (agenda-add-segment agenda time thunk)
-        (add-to-segments (agenda-segments agenda)))))
+        (add-to-segments (agenda-segments agenda)))
+    *unspecified*))
 
 (define current-agenda
   (make-parameter (make-agenda)
-- 
cgit v1.2.3