summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/graphics/seagull.scm7
1 files changed, 2 insertions, 5 deletions
diff --git a/chickadee/graphics/seagull.scm b/chickadee/graphics/seagull.scm
index be479ba..4488c04 100644
--- a/chickadee/graphics/seagull.scm
+++ b/chickadee/graphics/seagull.scm
@@ -1934,7 +1934,7 @@
;; choosing to represent them opaquely for now to keep things simple.
(define type:mat3 (primitive-type 'mat3))
(define type:mat4 (primitive-type 'mat4))
-(define type:sampler-2d (primitive-type 'sampler-2d))
+(define type:sampler-2d (primitive-type 'sampler2D))
(define (type-descriptor->type desc)
(match desc
@@ -2212,13 +2212,10 @@
;; Transform a fully typed Seagull program into a string of GLSL code.
-(define %type-name-map
- '((sampler-2d . sampler2D)))
-
(define (type-descriptor->glsl desc)
(match desc
((? symbol?)
- (or (assq-ref %type-name-map desc) desc))
+ desc)
(('array desc* length)
(format #f "~a[~a]"
(type-descriptor->glsl desc*)