diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-12-15 20:48:03 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-12-15 20:48:03 -0500 |
| commit | d0061c661d2f3b5553c9381e4234c138081bf08a (patch) | |
| tree | 94cca972af501dd26756597a8dbe4a9982ffd196 | |
| parent | 5cf1bae61a2b1428d9b8cd827fb756299822d072 (diff) | |
Reverse arguments to signal-fold proc.
* 2d/signals.scm (signal-fold): Reverse callback args.
| -rw-r--r-- | 2d/signals.scm | 2 |
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)) |