Add inputs field to <signal>.

* 2d/signal (<signal>): Add inputs field.
  (%make-signal): Add inputs parameter.

1 files 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 <signal>
-  (%%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 <signal-box>
@@ -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))