X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvideo.scm;fp=src%2Fvideo.scm;h=3e5553dd816357c6f862bb50af35d2e3592cdd8e;hb=9c14da6c19a2e29a1db346df5c746bfcd2680afb;hp=e58fab9ce906890d016fdc1b444c2cba5114e82b;hpb=7f3b8919aa22d8fe01db4f57f679b8bfb75ab16e;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)