From 4566e3be5f4a02366bcfc850eefbb001fbee8354 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 13 Oct 1993 00:01:31 +0000 Subject: [PATCH] Eliminate another vestige of "base/hashtb". --- v7/src/compiler/machines/C/compiler.sf | 7 ++++--- v7/src/compiler/machines/alpha/compiler.sf | 7 ++++--- v7/src/compiler/machines/bobcat/compiler.sf | 7 ++++--- v7/src/compiler/machines/i386/compiler.sf | 7 ++++--- v7/src/compiler/machines/mips/compiler.sf-big | 7 ++++--- v7/src/compiler/machines/mips/compiler.sf-little | 7 ++++--- v7/src/compiler/machines/spectrum/compiler.sf | 7 ++++--- v7/src/compiler/machines/vax/compiler.sf | 7 ++++--- 8 files changed, 32 insertions(+), 24 deletions(-) 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)) -- 2.25.1