From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 13 Oct 1993 00:01:31 +0000 (+0000)
Subject: Eliminate another vestige of "base/hashtb".
X-Git-Tag: 20090517-FFI~7772
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4566e3be5f4a02366bcfc850eefbb001fbee8354;p=mit-scheme.git

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 ec64fd3fb..b0f34d675 100644
--- 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 6dbec2773..1849601a3 100644
--- 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 8f55671b8..92110fb9e 100644
--- 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 3f91c3c35..b3a5639f5 100644
--- 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 fce22fc9d..689d3a49d 100644
--- 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 6d6138d17..26e1d1485 100644
--- 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 888d429a6..120c517f6 100644
--- 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 3b657672c..561980c43 100644
--- 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))