summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-07-05 14:34:28 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-07-05 14:34:28 -0400
commitaf41faedcd01b6f50a42841473fb69c52a50f5b1 (patch)
treea0e40cbbadf6ebac7517ae07442183b206e68d4b
parent63bb57defa65f96e6467cecc1a705c5e75a9b5df (diff)
Ensure that agenda scheduling procedures return no value.
* sly/agenda.scm (%schedule): Return unspecified.
-rw-r--r--sly/agenda.scm3
1 files changed, 2 insertions, 1 deletions
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)