diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-02-17 18:50:27 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-02-17 18:50:27 -0500 |
| commit | 3a786ddee63d4505cdb142442e880950698223f0 (patch) | |
| tree | 73acaff512461a530cc6d444f1cea2bf4c675d20 /2d | |
| parent | 5adecaa853f5068d5ca9e59a43f7a80110259e8f (diff) | |
Export alternate spelling of signal-box?.
* 2d/signal.scm (%signal?): New procedure.
(signal?): Redefined to be 'signal-box?'.
Diffstat (limited to '2d')
| -rw-r--r-- | 2d/signal.scm | 6 |
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)))) |