diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2018-07-10 12:20:10 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2018-07-11 14:36:12 -0400 |
| commit | 815eda95778172b023312ab64af83def1f733878 (patch) | |
| tree | 12832f63da3292b66d6304f36c994298953a74bb | |
| parent | faa92ac6137e40c6e3c7d18f45798c96fb5113f0 (diff) | |
render: Replace keyword->string from SRFI-88.
SRFI-88 introduces a problematic global reader macro that I didn't
know about until Ricardo Wurmus reported some strange behavior that
was traced back to this SRFI. Thanks to Ludovic Courtes for pointing
it out.
* chickadee/render.scm: Remove (srfi srfi-88) import.
(keyword->string): New procedure.
| -rw-r--r-- | chickadee/render.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chickadee/render.scm b/chickadee/render.scm index 268a47c..cdf0315 100644 --- a/chickadee/render.scm +++ b/chickadee/render.scm @@ -22,7 +22,6 @@ ;;; Code: (define-module (chickadee render) - #:use-module (srfi srfi-88) #:use-module (chickadee math matrix) #:use-module (chickadee render gpu) #:use-module (chickadee render blend) @@ -139,6 +138,9 @@ ;; (define (uniform-ref name) ;; (uniform-value (shader-uniform (current-shader) name))) +(define (keyword->string kw) + (symbol->string (keyword->symbol kw))) + (define-syntax uniform-apply (lambda (x) (syntax-case x () |