Make sure that evaluation buffers have the correct setting for the

scheme-environment variable; this is needed so that completion will
work correctly.  This was a problem in debugger buffers.

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 81dd53ad900470bd9b7eb867d0b5900b49d88095..688beb41de2872aa33d52419e79d8275467b041f 100644 (file)
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: intmod.scm,v 1.86 1995/04/30 07:02:18 cph Exp $
+;;;    $Id: intmod.scm,v 1.87 1997/03/30 06:23:43 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -101,6 +101,8 @@ REPL uses current evaluation environment."
   (set-buffer-major-mode! buffer (ref-mode-object inferior-repl))
   (if (ref-variable repl-mode-locked)
       (buffer-put! buffer 'MAJOR-MODE-LOCKED true))
+  (if (environment? environment)
+      (local-set-variable! scheme-environment environment buffer))
   (create-thread editor-thread-root-continuation
     (lambda ()
       (let ((port