From 82752174c2743bcc589b727e80254cc049aa77d0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 30 Sep 2013 12:04:59 +0900
Subject: [PATCH] Fixing env initialization for -m.  Needed for -mchibi.repl
 -e'(repl)' to use the default (scheme base) language.

---
 main.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.c b/main.c
index c0000136..64ad6e7f 100644
--- a/main.c
+++ b/main.c
@@ -366,7 +366,7 @@ void run_main (int argc, char **argv) {
         goto load_primitive;
       if (c != 'x') {prefix = sexp_import_prefix; suffix = sexp_import_suffix;}
       mods_loaded = 1;
-      load_init(1);
+      load_init(c == 'x');
 #if SEXP_USE_MODULES
       check_nonull_arg(c, arg);
       len = strlen(arg)+strlen(prefix)+strlen(suffix);