Eliminate references to EDWIN-SYNTAX-TABLE and CLASS-SYNTAX-TABLE.

diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index 5685370bb487c19d4e827df3ec3473c443b5d793..c2182e90260c64eeef71812ac0de95a59f7b56f1 100644 (file)
--- 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")