diff options
-rw-r--r-- | chickadee/graphics/seagull.scm | 7 |
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*) |