Fix build bug for real this time.
authorDavid Thompson <dthompson2@worcester.edu>
Wed, 18 Oct 2017 02:34:33 +0000 (22:34 -0400)
committerDavid Thompson <dthompson2@worcester.edu>
Wed, 18 Oct 2017 02:34:33 +0000 (22:34 -0400)
chickadee/render/texture.scm

index fd5ebce..b8b47a1 100644 (file)
@@ -23,8 +23,7 @@
   #:use-module (srfi srfi-9 gnu)
   #:use-module (system foreign)
   #:use-module (gl)
-  #:use-module ((gl enums)
-                #:prefix gl:)
+  #:use-module (gl enums)
   #:use-module ((sdl2 image) #:prefix sdl-image:)
   #:use-module (sdl2 surface)
   #:use-module (oop goops)
@@ -159,13 +158,13 @@ clamp-to-edge.  FORMAT specifies the pixel format.  Currently only
     (gl-texture-parameter (texture-target texture-2d)
                           (texture-parameter-name texture-min-filter)
                           (match min-filter
-                            ('nearest (gl:texture-min-filter nearest))
-                            ('linear (gl:texture-min-filter linear))))
+                            ('nearest 9728)
+                            ('linear 9729)))
     (gl-texture-parameter (texture-target texture-2d)
                           (texture-parameter-name texture-mag-filter)
                           (match mag-filter
-                            ('nearest (gl:texture-mag-filter nearest))
-                            ('linear (gl:texture-mag-filter linear))))
+                            ('nearest 9728)
+                            ('linear 9729)))
     (gl-texture-parameter (texture-target texture-2d)
                           (texture-parameter-name texture-wrap-s)
                           (gl-wrap wrap-s))