From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 11 Sep 1991 05:52:50 +0000 (+0000)
Subject: Fix alphabetical order of initialization filenames, because otherwise
X-Git-Tag: 20090517-FFI~10218
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2aa507f9f5f886103b84e4febabe1ae91ffc5c56;p=mit-scheme.git

Fix alphabetical order of initialization filenames, because otherwise
it doesn't work.
---

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 471476308..f2666232d 100644
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -2,6 +2,8 @@
 
 (declare (usual-integrations))
 
+;; This list must be kept in alphabetical order by filename.
+
 (standard-scheme-find-file-initialization
  '#(("argred"  (edwin command-argument)
 	       edwin-syntax-table)
@@ -45,10 +47,10 @@
 	       syntax-table/system-internal)
     ("clsmac"  (edwin class-macros)
 	       syntax-table/system-internal)
-    ("comman"  (edwin)
-	       edwin-syntax-table)
     ("comint"  (edwin)
 	       edwin-syntax-table)
+    ("comman"  (edwin)
+	       edwin-syntax-table)
     ("comred"  (edwin command-reader)
 	       edwin-syntax-table)
     ("comtab"  (edwin comtab)
@@ -113,10 +115,10 @@
 	       edwin-syntax-table)
     ("macros"  (edwin macros)
 	       syntax-table/system-internal)
-    ("malias"  (edwin mail-alias)
-	       edwin-syntax-table)
     ("make"    ()
 	       syntax-table/system-internal)
+    ("malias"  (edwin mail-alias)
+	       edwin-syntax-table)
     ("midas"   (edwin)
 	       edwin-syntax-table)
     ("modefs"  (edwin)
@@ -226,4 +228,4 @@
     ("xform"   (edwin class-macros transform-instance-variables)
 	       syntax-table/system-internal)
     ("xterm"   (edwin x-screen)
-	       syntax-table/system-internal)))
+	       syntax-table/system-internal)))
\ No newline at end of file