signal: Add signal-call.

* sly/signal.scm (signal-call): New procedure.
* doc/api/signals.texi: Add docs.

1 files changed, 8 insertions, 1 deletions

diff --git a/sly/signal.scm b/sly/signal.scm
index 0ddda2a..e57e880 100644
--- a/sly/signal.scm
+++ b/sly/signal.scm
@@ -53,7 +53,8 @@
             signal-every signal-timer signal-since
             signal-delay
             signal-throttle
-            signal-generator))
+            signal-generator
+            signal-call))
 
 ;;;
 ;;; Signals
@@ -425,3 +426,9 @@ ticks."
         (lambda () body ...))
       handler))
     signal))
+
+(define (signal-call proc-signal . arg-signals)
+  "Create a new signal that applies the procedure within PROC-SIGNAL
+to the arguments in ARG-SIGNALS."
+  (apply signal-map (lambda (proc . args) (apply proc args))
+         proc-signal arg-signals))