summaryrefslogtreecommitdiff
path: root/2d/signal.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/signal.scm')
-rw-r--r--2d/signal.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/2d/signal.scm b/2d/signal.scm
index 4d6fe3f..4f18fb0 100644
--- a/2d/signal.scm
+++ b/2d/signal.scm
@@ -27,7 +27,6 @@
#:use-module (srfi srfi-26)
#:use-module (2d agenda)
#:export (signal?
- signal-box?
make-signal
define-signal
hook->signal
@@ -59,7 +58,7 @@
;; declarative interface is exposed.
(define-record-type <signal>
(%%make-signal value proc inputs outputs)
- signal?
+ %signal?
(value %signal-ref %%signal-set!)
(proc signal-proc)
(inputs signal-inputs)
@@ -70,6 +69,9 @@
signal-box?
(signal signal-unbox signal-box-set!))
+;; Alternate spelling of signal-box? for the public API.
+(define signal? signal-box?)
+
(define (%make-signal init proc inputs)
"Create a new signal with initial value INIT."
(let ((signal (%%make-signal init proc inputs (make-weak-key-hash-table))))