From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 17 Sep 1991 14:05:09 +0000 (+0000)
Subject: Change NORMAL-MODE to evaluate variables in "Edwin Variables:" section
X-Git-Tag: 20090517-FFI~10210
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d36301447c2d60f50171f381af2f56c11829ffcf;p=mit-scheme.git

Change NORMAL-MODE to evaluate variables in "Edwin Variables:" section
of a buffer in the (edwin) package.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index b8f266e59..c076f4fce 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.101 1991/05/16 23:13:21 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.102 1991/09/17 14:05:09 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -218,9 +218,11 @@ after you find a file.  If you explicitly request such a scan with
 			  (pathname-name-string (buffer-pathname buffer)))))
 		    (parse-local-variables buffer start end)))))))))
 
+(define edwin-environment (->environment '(edwin)))
+
 (define (evaluate sexp)
-  (scode-eval (syntax sexp system-global-syntax-table)
-	      system-global-environment))
+  (scode-eval (syntax sexp edwin-syntax-table)
+	      edwin-environment))
 
 (define (parse-local-variables buffer start end)
   (let ((prefix (extract-string (line-start start 0) start))