diff options
| -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)))) |