patch sagittarius to use R7RS_LIBRARY_PATH, add copyright notice

1 files changed, 23 insertions, 0 deletions

diff --git a/mcgoron/guix/patches/sagittarius-scheme-0.9.13-library-path.patch b/mcgoron/guix/patches/sagittarius-scheme-0.9.13-library-path.patch
new file mode 100644
index 0000000..b47d17e
--- /dev/null
+++ b/mcgoron/guix/patches/sagittarius-scheme-0.9.13-library-path.patch
@@ -0,0 +1,23 @@
+diff --git a/src/os/posix/system.c b/src/os/posix/system.c
+index 474891c5..9bb991ce 100644
+--- a/src/os/posix/system.c
++++ b/src/os/posix/system.c
+@@ -131,12 +131,17 @@ SgObject Sg_GetLastErrorMessage()
+ 
+ SgObject Sg_GetDefaultLoadPath()
+ {
+-  SgObject env = Sg_Getenv(UC("SAGITTARIUS_LOADPATH"));
++  SgObject env = Sg_Getenv(UC("R7RS_LIBRARY_PATH"));
+   SgObject h = SG_NIL, t = SG_NIL;
+   if (!SG_FALSEP(env) && SG_STRING_SIZE(env) != 0) {
+     SG_APPEND(h, t, Sg_StringSplitChar(SG_STRING(env), ':'));
+   }
+ 
++  env = Sg_Getenv(UC("SAGITTARIUS_LOADPATH"));
++  if (!SG_FALSEP(env) && SG_STRING_SIZE(env) != 0) {
++    SG_APPEND(h, t, Sg_StringSplitChar(SG_STRING(env), ':'));
++  }
++
+   SG_APPEND1(h, t, Sg_SitelibPath());
+   SG_APPEND1(h, t, SG_MAKE_STRING(SAGITTARIUS_SHARE_SITE_LIB_PATH));
+   SG_APPEND1(h, t, SG_MAKE_STRING(SAGITTARIUS_SHARE_LIB_PATH));