When setting REPL env, don't push old env on stack.

diff --git a/src/runtime/rep.scm b/src/runtime/rep.scm
index e2ee57e7f1910e4be933302eb2526da14d747218..4cb59550c31048f8e7f6bffae61a8891c1a0433b 100644 (file)
--- a/src/runtime/rep.scm
+++ b/src/runtime/rep.scm
@@ -733,7 +733,7 @@ USA.
   ((repl/env-mgr repl) 'current))
 
 (define (set-repl/environment! repl environment)
-  ((repl/env-mgr repl) 'push! environment))
+  ((repl/env-mgr repl) 'set-current! environment))
 
 (define (nearest-repl/named-environment name)
   ((repl/env-mgr (nearest-repl)) 'get-named name))