From 2347422e62c01a5f7b5710f83de28f09d421b153 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 21:57:13 +0000
Subject: [PATCH] Eliminate reference to SYNTAX-TABLE/SYSTEM-INTERNAL.

---
 v7/src/edwin/edwin.sf | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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))
-- 
2.25.1