From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 21:57:13 +0000 (+0000)
Subject: Eliminate reference to SYNTAX-TABLE/SYSTEM-INTERNAL.
X-Git-Tag: 20090517-FFI~2378
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2347422e62c01a5f7b5710f83de28f09d421b153;p=mit-scheme.git

Eliminate reference to SYNTAX-TABLE/SYSTEM-INTERNAL.
---

diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index c2182e902..e67d2b58a 100644
--- a/v7/src/edwin/edwin.sf
+++ b/v7/src/edwin/edwin.sf
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: edwin.sf,v 1.28 2001/12/18 21:42:23 cph Exp $
+;;; $Id: edwin.sf,v 1.29 2001/12/18 21:57:13 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
 ;;;
@@ -32,8 +32,7 @@
     (begin
       (let ((sf-and-load
 	     (lambda (files package)
-	       (fluid-let ((sf/default-syntax-table
-			    syntax-table/system-internal))
+	       (fluid-let ((sf/default-syntax-table (->environment '())))
 		 (sf-conditionally files))
 	       (for-each (lambda (file)
 			   (load (string-append file ".bin") package))