patch sagittarius to use R7RS_LIBRARY_PATH, add copyright notice

2 files changed, 38 insertions, 0 deletions

diff --git a/mcgoron/guix/patches/COPYING b/mcgoron/guix/patches/COPYING
new file mode 100644
index 0000000..e389742
--- /dev/null
+++ b/mcgoron/guix/patches/COPYING
@@ -0,0 +1,15 @@
+The source code to all patches is licensed under the zero-clause BSD license:
+
+Copyright © 2025 Peter McGoron
+
+Permission to use, copy, modify, and/or distribute this software for
+any purpose with or without fee is hereby granted.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
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));