X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=src%2Fvideo.scm;h=3e5553dd816357c6f862bb50af35d2e3592cdd8e;hb=f02971f747ab2e643e2bc6bd962a068329b0f402;hp=e58fab9ce906890d016fdc1b444c2cba5114e82b;hpb=7789fd1f09e1e686d299111c2a88bc27e62bda94;p=gacela.git

diff --git a/src/video.scm b/src/video.scm
index e58fab9..3e5553d 100644
--- 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)