diff options
| -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))) |