From bd29b321f67990b2d062d28454eab92cdff7f219 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 21:32:08 +0000
Subject: [PATCH] Eliminate references to syntax tables.

---
 v7/src/imail/compile.scm | 21 +++++++++------------
 v7/src/imail/ed-ffi.scm  | 38 +++++++++++++-------------------------
 2 files changed, 22 insertions(+), 37 deletions(-)

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
index 4fbef584f..4b88a040a 100644
--- a/v7/src/imail/compile.scm
+++ b/v7/src/imail/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.15 2001/11/05 21:23:58 cph Exp $
+;;; $Id: compile.scm,v 1.16 2001/12/18 21:32:08 cph Exp $
 ;;;
 ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
 ;;;
@@ -26,21 +26,18 @@
 (load-option '*PARSER)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
-    (for-each compile-file
-	      '("imail-core"
+    (compile-file "url" '() (->environment '(RUNTIME)))
+    (for-each (lambda (filename)
+		(compile-file filename '() (->environment '(EDWIN))))
+	      '("imail-browser"
+		"imail-core"
 		"imail-file"
 		"imail-imap"
 		"imail-rmail"
+		"imail-summary"
+		"imail-top"
 		"imail-umail"
 		"imail-util"
 		"imap-response"
-		"imap-syntax"
-		"url"))
-    (for-each (let ((syntax-table
-		     (access edwin-syntax-table (->environment '(EDWIN)))))
-		(lambda (filename)
-		  (compile-file filename '() syntax-table)))
-	      '("imail-browser"
-		"imail-summary"
-		"imail-top"))
+		"imap-syntax"))
     (cref/generate-constructors "imail")))
\ No newline at end of file
diff --git a/v7/src/imail/ed-ffi.scm b/v7/src/imail/ed-ffi.scm
index dd5cfe632..f73206781 100644
--- a/v7/src/imail/ed-ffi.scm
+++ b/v7/src/imail/ed-ffi.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: ed-ffi.scm,v 1.17 2001/11/05 21:20:20 cph Exp $
+;;; $Id: ed-ffi.scm,v 1.18 2001/12/18 21:28:34 cph Exp $
 ;;;
 ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
 ;;;
@@ -22,27 +22,15 @@
 ;;;; IMAIL mail reader: Edwin buffer packaging info
 
 (standard-scheme-find-file-initialization
- '#(("imail-browser"	(edwin imail front-end folder-browser)
-			edwin-syntax-table)
-    ("imail-core"	(edwin imail)
-			system-global-syntax-table)
-    ("imail-file"	(edwin imail file-folder)
-			system-global-syntax-table)
-    ("imail-imap"	(edwin imail imap-folder)
-			system-global-syntax-table)
-    ("imail-rmail"	(edwin imail file-folder rmail-folder)
-			system-global-syntax-table)
-    ("imail-summary"	(edwin imail front-end summary)
-			edwin-syntax-table)
-    ("imail-top"	(edwin imail front-end)
-			edwin-syntax-table)
-    ("imail-umail"	(edwin imail file-folder umail-folder)
-			system-global-syntax-table)
-    ("imail-util"	(edwin imail)
-			system-global-syntax-table)
-    ("imap-response"	(edwin imail imap-response)
-			system-global-syntax-table)
-    ("imap-syntax"	(edwin imail imap-syntax)
-			system-global-syntax-table)
-    ("url"		(runtime url)
-			system-global-syntax-table)))
\ No newline at end of file
+ '#(("imail-browser"	(edwin imail front-end folder-browser))
+    ("imail-core"	(edwin imail))
+    ("imail-file"	(edwin imail file-folder))
+    ("imail-imap"	(edwin imail imap-folder))
+    ("imail-rmail"	(edwin imail file-folder rmail-folder))
+    ("imail-summary"	(edwin imail front-end summary))
+    ("imail-top"	(edwin imail front-end))
+    ("imail-umail"	(edwin imail file-folder umail-folder))
+    ("imail-util"	(edwin imail))
+    ("imap-response"	(edwin imail imap-response))
+    ("imap-syntax"	(edwin imail imap-syntax))
+    ("url"		(runtime url))))
\ No newline at end of file
-- 
2.25.1