diff options
| -rw-r--r-- | 2d/shader.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/2d/shader.scm b/2d/shader.scm index 8c47cdc..89b93fe 100644 --- a/2d/shader.scm +++ b/2d/shader.scm @@ -123,7 +123,9 @@ contained in the string SOURCE." (define (load-shader type filename) "Create a new GLSL shader of the given TYPE (vertex or fragment) and compile the GLSL program stored in the file FILENAME." - (make-shader type (call-with-input-file filename read-string))) + (if (file-exists? filename) + (make-shader type (call-with-input-file filename read-string)) + (error "File not found!" filename))) (define (load-vertex-shader filename) "Create a new GLSL vertex shader and compile the GLSL program stored |