mcgoron/guix/patches/chibi-scheme-0.11-library-path.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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);