summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/signal.scm5
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))