From 05d87f0612614a9cf0cd2dc5b5452ac46293694c Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 6 Nov 2011 15:59:46 +0900
Subject: [PATCH] @import-only updates the interaction-environment

---
 lib/chibi/repl.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm
index 8885bbb6..40b80025 100644
--- a/lib/chibi/repl.scm
+++ b/lib/chibi/repl.scm
@@ -62,6 +62,8 @@
 ;;> the @scheme{escape:} keyword.  The following commands are available:
 ;;>
 ;;> @itemlist[
+;;> @item{@scheme|{@import <import-spec>}| - import the @var{<import-spec>} in the @scheme{interaction-environment}, useful if the @scheme{import} binding is not available}
+;;> @item{@scheme|{@import-only <import-spec>}| - replace the @scheme{interaction-environment} with the given @var{<import-spec>}}
 ;;> @item{@scheme|{@in [<module>]}| - switch to @var{<module>}, or the @scheme{interaction-environment} if @var{<module>} is not specified}
 ;;> @item{@scheme|{@meta <expr>}| - evaluate @var{<expr>} in the @scheme{(meta)} module}
 ;;> @item{@scheme|{@meta-module-is <module>}| - switch the meta module to @var{<module>}}
@@ -130,7 +132,9 @@
                                               meta-env)))
                          (if (pair? mod+imps)
                              (let ((env (if (eq? op 'import-only)
-                                            (make-environment)
+                                            (let ((env (make-environment)))
+                                              (interaction-environment env)
+                                              env)
                                             env))
                                    (imp-env
                                     (vector-ref