From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 21:42:23 +0000 (+0000)
Subject: Eliminate references to EDWIN-SYNTAX-TABLE and CLASS-SYNTAX-TABLE.
X-Git-Tag: 20090517-FFI~2380
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce115bd1926ad81be4003c152670c95970a7d72c;p=mit-scheme.git

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