diff options
| author | David Thompson <dthompson2@worcester.edu> | 2019-10-18 17:15:28 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2019-10-18 17:15:28 -0400 |
| commit | c72decd66b0201a59956d2d21e3f0d16316809b4 (patch) | |
| tree | b39ee36b0fbf861e50f657e8a9c9158ddbf1d064 | |
| parent | e6d8d4de35d2636668297d594aafcabd8d4bb1ff (diff) | |
render: shader: Improve shader compilation error printing.
| -rw-r--r-- | chickadee/render/shader.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chickadee/render/shader.scm b/chickadee/render/shader.scm index 02f0e12..e3b80c9 100644 --- a/chickadee/render/shader.scm +++ b/chickadee/render/shader.scm @@ -269,7 +269,9 @@ them into a GPU shader program." (unless (shader-compiled? id) (let ((error-log (compilation-error id))) (gl-delete-shader id) ; clean up GPU resource. - (error "failed to compile shader" error-log))) + (display "shader compilation failed:\n") + (display error-log (current-error-port)) + (error "failed to compile shader"))) id)) (define (uniform-count id) (let ((bv (make-u32vector 1))) |