Improve Guile load path initialization in launcher script.HEADmain

Use entire load path from the build environment.

1 files changed, 4 insertions, 3 deletions

diff --git a/scripts/super-bloom.in b/scripts/super-bloom.in
index 1e9a41b..1452cd8 100755
--- a/scripts/super-bloom.in
+++ b/scripts/super-bloom.in
@@ -3,9 +3,10 @@
 !#
 
 ;; Add installed modules to load path.
-(define-syntax-rule (push! elt v) (set! v (cons elt v)))
-(push! "@guilemoduledir@" %load-path)
-(push! "@guileobjectdir@" %load-compiled-path)
+(define-syntax-rule (append-path! path var)
+  (set! var (append (string-split path #\:) var)))
+(append-path! "@guilemodulepath@" %load-path)
+(append-path! "@guileobjectpath@" %load-compiled-path)
 
 ;; Launch game.
 (use-modules (super-bloom main))