-(define-macro (translate x y view-or-z . view)
- (let* ((z (if (null? view) 0 view-or-z))
- (view (if (null? view) view-or-z (car view))))
- `(begin
- (gltranslate ,x ,y ,z)
- ,view)))
+;(define-macro (translate x y view-or-z . view)
+; (let* ((z (if (null? view) 0 view-or-z))
+; (view (if (null? view) view-or-z (car view))))
+; `(begin
+; (gltranslate ,x ,y ,z)
+; ,view)))