Eliminate references to syntax tables.

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
index 4fbef584fb3df5a9ad6bc8230ed23bd0884c023c..4b88a040a979142cebf1271365eba267b10f8f42 100644 (file)
--- 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 dd5cfe63262daefc080b75116d1768633c89475c..f732067816631cf7feca1c06738588877fffdc07 100644 (file)
--- 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