From d2dd29e31dd5859a659112d32a8f32759c0668c0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 27 Aug 2014 11:33:38 -0400
Subject: camera: Use signal-let.

* sly/camera.scm (draw-camera): Use signal-let.
---
 sly/camera.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/sly/camera.scm b/sly/camera.scm
index 8992acf..1967b80 100644
--- a/sly/camera.scm
+++ b/sly/camera.scm
@@ -92,8 +92,7 @@
   "Draw SCENE from the perspective of CAMERA with interpolation factor
 ALPHA."
   (clear-camera camera)
-  (draw-scene-node (camera-scene camera)
-                   alpha
-                   (transform*
-                    (signal-ref-maybe (camera-projection camera))
-                    (signal-ref-maybe (camera-location camera)))))
+  (signal-let ((scene (camera-scene camera))
+               (projection (camera-projection camera))
+               (location (camera-location camera)))
+    (draw-scene-node scene alpha (transform* projection location))))
-- 
cgit v1.2.3