1 files changed, 9 insertions, 1 deletions
diff --git a/sly/render.scm b/sly/render.scm
index 875f7c1..6bc917b 100644
--- a/sly/render.scm
+++ b/sly/render.scm
@@ -31,6 +31,7 @@
   #:use-module (gl)
   #:use-module (gl enums)
   #:use-module (gl low-level)
+  #:use-module (sly signal)
   #:use-module (sly wrappers gl)
   #:use-module ((sly math transform) #:prefix t:)
   #:use-module (sly render color)
@@ -117,7 +118,8 @@
             clear-screen
             uniform-let
             with-color
-            render-mesh))
+            render-mesh
+            render/signal))
 
 ;;;
 ;;; Transformation matrix stack.
@@ -524,3 +526,9 @@ COLOR and applies RENDERER."
             `((mvp ,(graphics-model-view-transform gfx))
               (texture? ,(not (texture-null? (graphics-texture gfx)))))
           draw-graphics-mesh!)))))
+
+(define-syntax-rule (render/signal ((name signal) ...) renderer)
+  "Evaluate RENDERER whenever a bound signal changes."
+  (let ((s (signal-let ((name signal) ...) renderer)))
+    (lambda (gfx)
+      ((signal-ref s) gfx))))