From d0c574f436aba338c0395ec75af2d8ae21617122 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 30 Mar 1997 06:23:43 +0000 Subject: [PATCH] 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. --- v7/src/edwin/intmod.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.25.1