From bcdb46d042caa462c0c350af3be0a7b98a8d3344 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 17 Feb 2014 16:59:53 -0500 Subject: Add inputs field to . * 2d/signal (): Add inputs field. (%make-signal): Add inputs parameter. --- 2d/signal.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/2d/signal.scm b/2d/signal.scm index ec971b0..fc1ce31 100644 --- a/2d/signal.scm +++ b/2d/signal.scm @@ -56,10 +56,11 @@ ;; programming. State mutation is hidden away and a functional, ;; declarative interface is exposed. (define-record-type - (%%make-signal value proc outputs) + (%%make-signal value proc inputs outputs) signal? (value %signal-ref %%signal-set!) (proc signal-proc) + (inputs signal-inputs) (outputs signal-outputs)) (define-record-type @@ -69,7 +70,7 @@ (define (%make-signal init proc inputs) "Create a new signal with initial value INIT." - (let ((signal (%%make-signal init proc (make-weak-key-hash-table)))) + (let ((signal (%%make-signal init proc inputs (make-weak-key-hash-table)))) (for-each (cut signal-connect! signal <>) inputs) signal)) -- cgit v1.2.3