From 3a786ddee63d4505cdb142442e880950698223f0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 17 Feb 2014 18:50:27 -0500
Subject: Export alternate spelling of signal-box?.

* 2d/signal.scm (%signal?): New procedure.
  (signal?): Redefined to be 'signal-box?'.
---
 2d/signal.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to '2d/signal.scm')

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))))
-- 
cgit v1.2.3