From 7cd26b9823cdf96a77c30ca337cc1da022af865c Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 16 Jan 2018 21:23:21 +0900
Subject: [PATCH] advanced repl should use (scheme small) by default

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

diff --git a/main.c b/main.c
index 4550b5dc..2f355415 100644
--- a/main.c
+++ b/main.c
@@ -489,6 +489,8 @@ sexp run_main (int argc, char **argv) {
       main_module = argv[i][2] != '\0' ? argv[i]+2 :
         (i+1 < argc && argv[i+1][0] != '-') ? argv[++i] : "chibi.repl";
       if (main_symbol == NULL) main_symbol = "main";
+      if (strcmp(main_module, "chibi.repl") == 0)
+        load_init(0);
       break;
     case 'r':
       main_symbol = argv[i][2] == '\0' ? "main" : argv[i]+2;