Eliminate another vestige of "base/hashtb".

diff --git a/v7/src/compiler/machines/C/compiler.sf b/v7/src/compiler/machines/C/compiler.sf
index ec64fd3fbfe5fa5d4a91ba29d021df407c4b7f3d..b0f34d6753123d2fe4ab0de8047f9bb2d32f982f 100644 (file)
--- a/v7/src/compiler/machines/C/compiler.sf
+++ b/v7/src/compiler/machines/C/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.sf,v 1.1 1993/06/08 06:13:32 gjr Exp $
+$Id: compiler.sf,v 1.2 1993/10/13 00:00:44 cph Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/C/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/alpha/compiler.sf b/v7/src/compiler/machines/alpha/compiler.sf
index 6dbec2773029b4287ca5b1e792f3bb6d319f23e2..1849601a304eaf334f26ed776f6666af85e1bd60 100644 (file)
--- a/v7/src/compiler/machines/alpha/compiler.sf
+++ b/v7/src/compiler/machines/alpha/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.sf,v 1.1 1992/08/29 13:52:04 jinx Exp $
+$Id: compiler.sf,v 1.2 1993/10/13 00:00:51 cph Exp $
 
-Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
+Copyright (c) 1992-93 Digital Equipment Corporation (D.E.C.)
 
 This software was developed at the Digital Equipment Corporation
 Cambridge Research Laboratory.  Permission to copy this software, to
@@ -61,8 +61,9 @@ case.
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/alpha/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/bobcat/compiler.sf b/v7/src/compiler/machines/bobcat/compiler.sf
index 8f55671b8c05b184ab42f53fbca664bd64855f78..92110fb9eca1662ed40dd72e398a902672a8d0b8 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.sf
+++ b/v7/src/compiler/machines/bobcat/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.sf,v 1.13 1991/03/01 23:25:15 cph Exp $
+$Id: compiler.sf,v 1.14 1993/10/13 00:00:57 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/bobcat/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf
index 3f91c3c35d14c90fd1f5321d4b92960675e95023..b3a5639f52ea30ded149b578b435704e304f4a81 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.sf
+++ b/v7/src/compiler/machines/i386/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.sf,v 1.3 1992/02/28 20:23:57 jinx Exp $
+$Id: compiler.sf,v 1.4 1993/10/13 00:01:04 cph Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/i386/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/mips/compiler.sf-big b/v7/src/compiler/machines/mips/compiler.sf-big
index fce22fc9d5e339e0d1801d4916a03cdbf6508d47..689d3a49d79e02a54006146d2e866e08b7de1bc8 100644 (file)
--- a/v7/src/compiler/machines/mips/compiler.sf-big
+++ b/v7/src/compiler/machines/mips/compiler.sf-big
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/compiler.sf-big,v 1.3 1991/10/25 13:00:11 cph Exp $
+$Id: compiler.sf-big,v 1.4 1993/10/13 00:01:12 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/mips/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/mips/compiler.sf-little b/v7/src/compiler/machines/mips/compiler.sf-little
index 6d6138d171d4bd406acd164e3f801ba23943db65..26e1d1485ce86b9ad953ab7a8ba502ea041e5017 100644 (file)
--- a/v7/src/compiler/machines/mips/compiler.sf-little
+++ b/v7/src/compiler/machines/mips/compiler.sf-little
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/compiler.sf-little,v 1.3 1991/10/25 13:00:15 cph Exp $
+$Id: compiler.sf-little,v 1.4 1993/10/13 00:01:20 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/mips/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/spectrum/compiler.sf b/v7/src/compiler/machines/spectrum/compiler.sf
index 888d429a669d20d9b91921ab20a7a15a2560a491..120c517f63a190d993002da62584ab7886ab6602 100644 (file)
--- a/v7/src/compiler/machines/spectrum/compiler.sf
+++ b/v7/src/compiler/machines/spectrum/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/compiler.sf,v 1.13 1991/10/25 12:57:56 cph Exp $
+$Id: compiler.sf,v 1.14 1993/10/13 00:00:31 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/spectrum/decls") '(COMPILER DECLARATIONS))

diff --git a/v7/src/compiler/machines/vax/compiler.sf b/v7/src/compiler/machines/vax/compiler.sf
index 3b657672c1004337f15c934a448c8557c42d562e..561980c43323ae9182e620467801a0e2fc54d824 100644 (file)
--- a/v7/src/compiler/machines/vax/compiler.sf
+++ b/v7/src/compiler/machines/vax/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.sf,v 1.4 1991/10/18 09:13:08 cph Exp $
+$Id: compiler.sf,v 1.5 1993/10/13 00:01:31 cph Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,8 +59,9 @@ MIT in each case. |#
             (for-each (lambda (file)
                         (load (string-append file ".bin") package))
                       files))))
+      (load-option 'HASH-TABLE)
       (write-string "\n\n---- Loading compile-time files ----")
-      (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))
+      (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
       (sf-and-load '("machines/vax/decls") '(COMPILER DECLARATIONS))