From d0061c661d2f3b5553c9381e4234c138081bf08a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 15 Dec 2013 20:48:03 -0500
Subject: Reverse arguments to signal-fold proc.

* 2d/signals.scm (signal-fold): Reverse callback args.
---
 2d/signals.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to '2d')

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))
-- 
cgit v1.2.3