diff options
| -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)) |