Get godot location from GODOT environment variable

bamboo · Nov 30, 2024 · 437380e · 437380e
1 parent e01d660
commit 437380e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/test/test-main.scm b/test/test-main.scm
@@ -7,7 +7,8 @@
          (error 'assertion-error "ERROR~%# (assert-equals ~a ~a)~%## ~a~%`~a`~%## ~a~%`~a`" lq rq lq l' rq r')))))
 
 (define (godot scene)
-  (system (format #f "godot --path demo ~a --headless --quit" scene) #t))
+  (let ((program (or (getenv "GODOT") "godot")))
+    (system (format #f "~a --path demo ~a --headless --quit" program scene) #t)))
 
 (define (read-file path)
   (call-with-input-file path