summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-17 18:50:27 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-17 18:50:27 -0500
commit3a786ddee63d4505cdb142442e880950698223f0 (patch)
tree73acaff512461a530cc6d444f1cea2bf4c675d20
parent5adecaa853f5068d5ca9e59a43f7a80110259e8f (diff)
Export alternate spelling of signal-box?.
* 2d/signal.scm (%signal?): New procedure. (signal?): Redefined to be 'signal-box?'.
-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))))