Minor

Shirakumo · May 23, 2024 · 8c09b4c · 8c09b4c
1 parent fb317d0
commit 8c09b4c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/renderers/opengl/renderer.lisp b/renderers/opengl/renderer.lisp
@@ -34,9 +34,10 @@
     (values (+ o1x (* d1x u))
             (+ o1y (* d1y u)))))
 
-(defun make-shader-from-file (renderer name &optional (file (make-pathname :name (string-downcase name) :type "glsl" :defaults *shaders-directory*)))
-  (unless (resource name renderer NIL)
-    (let* ((contents (alexandria:read-file-into-string file))
+(defun make-shader-from-file (renderer name &key force)
+  (when (or force (null (resource name renderer NIL)))
+    (let* ((file (make-pathname :name (string-downcase name) :type "glsl" :defaults *shaders-directory*))
+           (contents (alexandria:read-file-into-string file))
            (vert-start (search "//VERT" contents))
            (frag-start (search "//FRAG" contents))
            (vert (subseq contents vert-start (if (< vert-start frag-start) frag-start (length contents))))