Catching errors from main loop and square meshes

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index e65d6bdcecaeb787b003764932237c03663a718c..0e6a51345dfd9a6337a27a79bb7f83ad69e12f26 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -353,7 +353,7 @@
               #:texture-coord texture-coord
               #:color color)))
 
-(define* (draw-square #:key (size 1) texture color)
+(define* (draw-square size #:key texture color)
   (draw-rectangle size size #:texture texture #:color color))
 
 (define* (draw-cube #:key (size 1)
@@ -569,6 +569,9 @@
         (mesh-properties-set! m (list ,@(map (lambda (a) `(cons ',a ,a)) (names-arguments args))))
         m))))
 
+(define-mesh (square size #:key texture color)
+  (draw-square size #:texture texture #:color color))
+
 
 (module-map (lambda (sym var)
              (if (not (eq? sym '%module-public-interface))