From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 Mar 1997 06:23:43 +0000 (+0000)
Subject: Make sure that evaluation buffers have the correct setting for the
X-Git-Tag: 20090517-FFI~5232
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d0c574f436aba338c0395ec75af2d8ae21617122;p=mit-scheme.git

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 81dd53ad9..688beb41d 100644
--- 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