From ce115bd1926ad81be4003c152670c95970a7d72c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 21:42:23 +0000
Subject: [PATCH] Eliminate references to EDWIN-SYNTAX-TABLE and
 CLASS-SYNTAX-TABLE.

---
 v7/src/edwin/edwin.sf | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index 5685370bb..c2182e902 100644
--- a/v7/src/edwin/edwin.sf
+++ b/v7/src/edwin/edwin.sf
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: edwin.sf,v 1.27 2001/12/17 17:40:58 cph Exp $
+;;; $Id: edwin.sf,v 1.28 2001/12/18 21:42:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
 ;;;
@@ -46,16 +46,14 @@
 	(sf-and-load '("clscon") '(EDWIN CLASS-CONSTRUCTOR)))))
 
 (let ((read-class-definitions
-       (let ((syntax-table
-	      (access class-syntax-table (->environment '(EDWIN)))))
-	 (lambda (filename)
-	   (fresh-line)
-	   (write-string "Pre-loading class definitions from ")
-	   (write filename)
-	   (syntax* (read-file (string-append filename ".scm"))
-		    syntax-table)
-	   (write-string " -- done")
-	   (newline)))))
+       (lambda (filename)
+	 (fresh-line)
+	 (write-string "Pre-loading class definitions from ")
+	 (write filename)
+	 (syntax* (read-file (string-append filename ".scm"))
+		  (->environment '(EDWIN WINDOW)))
+	 (write-string " -- done")
+	 (newline))))
   (read-class-definitions "window")
   (read-class-definitions "utlwin")
   (read-class-definitions "modwin")
-- 
2.25.1