From: Andy Wingo <wingo@pobox.com>
Date: Tue, 12 Feb 2013 11:04:52 +0000 (+0100)
Subject: remove gl-push-matrix and gl-pop-matrix
X-Git-Url: http://git.hcoop.net/clinton/guile-figl.git/commitdiff_plain/bfac2618ac9343768ab56d5c47ab788b641f682a

remove gl-push-matrix and gl-pop-matrix

* figl/gl.scm: Remove gl-push-matrix and gl-pop-matrix, as there is
  with-gl-push-matrix.
---

diff --git a/figl/gl.scm b/figl/gl.scm
index ba94f56..6267585 100644
--- a/figl/gl.scm
+++ b/figl/gl.scm
@@ -156,9 +156,7 @@
            (%glScalef . gl-scale)
            (%glFrustum . gl-frustum)
            (%glOrtho . gl-ortho)
-           (%glActiveTexture . set-gl-active-texture)
-           (%glPushMatrix . gl-push-matrix)
-           (%glPopMatrix . gl-pop-matrix))
+           (%glActiveTexture . set-gl-active-texture))
 
 ;; emacs: (put 'with-gl-push-matrix 'scheme-indent-function 0)
 (define-syntax with-gl-push-matrix