patch chibi to use R7RS_LIBRARY_PATH

1 files changed, 21 insertions, 0 deletions

diff --git a/mcgoron/guix/patches/chibi-scheme-0.11-library-path.patch b/mcgoron/guix/patches/chibi-scheme-0.11-library-path.patch
new file mode 100644
index 0000000..309681b
--- /dev/null
+++ b/mcgoron/guix/patches/chibi-scheme-0.11-library-path.patch
@@ -0,0 +1,21 @@
+diff --git a/eval.c b/eval.c
+index 8a7f0de2..41239fa4 100644
+--- a/eval.c
++++ b/eval.c
+@@ -509,9 +509,16 @@ void sexp_init_eval_context_globals (sexp ctx) {
+   sexp_init_eval_context_bytecodes(ctx);
+ #endif
+   sexp_global(ctx, SEXP_G_MODULE_PATH) = SEXP_NULL;
++
++
++  user_path = getenv("R7RS_LIBRARY_PATH");
++  if (user_path)
++    sexp_add_path(ctx, user_path);
++
+   user_path = getenv(SEXP_MODULE_PATH_VAR);
+   if (!user_path) user_path = sexp_default_user_module_path;
+   sexp_add_path(ctx, user_path);
++
+   no_sys_path = getenv(SEXP_NO_SYSTEM_PATH_VAR);
+   if (!no_sys_path || strcmp(no_sys_path, "0")==0)
+     sexp_add_path(ctx, sexp_default_module_path);