summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-12-15 20:48:03 -0500
committerDavid Thompson <dthompson2@worcester.edu>2013-12-15 20:48:03 -0500
commitd0061c661d2f3b5553c9381e4234c138081bf08a (patch)
tree94cca972af501dd26756597a8dbe4a9982ffd196
parent5cf1bae61a2b1428d9b8cd827fb756299822d072 (diff)
Reverse arguments to signal-fold proc.
* 2d/signals.scm (signal-fold): Reverse callback args.
-rw-r--r--2d/signals.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/2d/signals.scm b/2d/signals.scm
index 0d2854a..84641a7 100644
--- a/2d/signals.scm
+++ b/2d/signals.scm
@@ -181,7 +181,7 @@ previously computed value, or INIT for the first call."
(make-signal init
(let ((previous init))
(lambda (fold-signal from)
- (let ((value (proc previous (signal-ref from))))
+ (let ((value (proc (signal-ref from) previous)))
(set! previous value)
(signal-set! fold-signal value))))
signal))