diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-07-05 14:34:28 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-07-05 14:34:28 -0400 |
| commit | af41faedcd01b6f50a42841473fb69c52a50f5b1 (patch) | |
| tree | a0e40cbbadf6ebac7517ae07442183b206e68d4b | |
| parent | 63bb57defa65f96e6467cecc1a705c5e75a9b5df (diff) | |
Ensure that agenda scheduling procedures return no value.
* sly/agenda.scm (%schedule): Return unspecified.
| -rw-r--r-- | sly/agenda.scm | 3 |
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) |