Defining meshes as closures.

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index e58fab9ce906890d016fdc1b444c2cba5114e82b..3e5553dd816357c6f862bb50af35d2e3592cdd8e 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -377,11 +377,11 @@
 (define* (translate x y #:optional (z 0))
   (glTranslatef x y z))
 
-(define* (rotate #:rest rot)
+(define (rotate . rot)
   (cond ((3d-mode?)
         (apply 3d-rotate rot))
        (else
-        (apply 2d-rotate rot))))
+        (2d-rotate (car (last-pair rot))))))
 
 (define (3d-rotate xrot yrot zrot)
   (glRotatef xrot 1 0 0)