From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 25 Apr 2003 03:54:44 +0000 (+0000)
Subject: Eliminate "(load-option 'HASH-TABLE)".
X-Git-Tag: 20090517-FFI~1914
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d6eac7e785ca19a551b1afcfbc120dc57af9825b;p=mit-scheme.git

Eliminate "(load-option 'HASH-TABLE)".
---

diff --git a/v7/src/compiler/base/make.scm b/v7/src/compiler/base/make.scm
index 950955556..68b7f47e6 100644
--- a/v7/src/compiler/base/make.scm
+++ b/v7/src/compiler/base/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.121 2003/04/25 03:47:06 cph Exp $
+$Id: make.scm,v 4.122 2003/04/25 03:50:34 cph Exp $
 
 Copyright (c) 1991,1992,1993,1994,1997 Massachusetts Institute of Technology
 Copyright (c) 1998,1999,2001,2002,2003 Massachusetts Institute of Technology
@@ -36,7 +36,6 @@ USA.
    (pathname-as-directory "compiler")
    (lambda ()
      (load-option 'COMPRESS)
-     (load-option 'HASH-TABLE)
      (load-option 'RB-TREE)
      (load-package-set "compiler")))
   (add-identification! "LIAR" 4 116))
\ No newline at end of file
diff --git a/v7/src/microcode/os2pm.scm b/v7/src/microcode/os2pm.scm
index f5678ab5c..ad99a9036 100644
--- a/v7/src/microcode/os2pm.scm
+++ b/v7/src/microcode/os2pm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: os2pm.scm,v 1.15 2003/02/14 18:48:12 cph Exp $
+$Id: os2pm.scm,v 1.16 2003/04/25 03:51:27 cph Exp $
 
-Copyright 1995-1999, 2001, 2002 Massachusetts Institute of Technology
+Copyright 1995,1997,2001,2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -49,7 +49,6 @@ USA.
 
 (declare (usual-integrations))
 
-(load-option 'HASH-TABLE)
 (load-option 'FORMAT)
 
 ;;;; Syntax
diff --git a/v7/src/pcsample/pcsample.scm b/v7/src/pcsample/pcsample.scm
index 5cacec303..3e0aa9dd4 100644
--- a/v7/src/pcsample/pcsample.scm
+++ b/v7/src/pcsample/pcsample.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pcsample.scm,v 1.5 2003/02/14 18:28:31 cph Exp $
+$Id: pcsample.scm,v 1.6 2003/04/25 03:52:04 cph Exp $
 
 Copyright (c) 1995, 1999 Massachusetts Institute of Technology
 
@@ -473,7 +473,6 @@ TODO:
 (define      profile-hash-table-cdr)
 
 (define (install-profile-hash-table)
-  (load-option 'hash-table)		; For code block profile tables
 
 ;;;(set! make-profile-hash-table     make-eq-hash-table);   weakly held
 ;;;(set!      profile-hash-table-car weak-car)
diff --git a/v7/src/rcs/load.scm b/v7/src/rcs/load.scm
index 28378615d..bfdb63889 100644
--- a/v7/src/rcs/load.scm
+++ b/v7/src/rcs/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 1.5 2003/02/14 18:28:32 cph Exp $
+$Id: load.scm,v 1.6 2003/04/25 03:52:45 cph Exp $
 
-Copyright (c) 2000, 2001 Massachusetts Institute of Technology
+Copyright 2000,2001,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -23,7 +23,6 @@ USA.
 
 |#
 
-(load-option 'HASH-TABLE)
 (load-option 'REGULAR-EXPRESSION)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
diff --git a/v7/src/runtime/os2ctype.scm b/v7/src/runtime/os2ctype.scm
index 4bff98173..a4d7f3d45 100644
--- a/v7/src/runtime/os2ctype.scm
+++ b/v7/src/runtime/os2ctype.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: os2ctype.scm,v 1.5 2003/02/14 18:28:33 cph Exp $
+$Id: os2ctype.scm,v 1.6 2003/04/25 03:53:28 cph Exp $
 
-Copyright (c) 1995, 1999 Massachusetts Institute of Technology
+Copyright 1995,1999,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -271,7 +271,6 @@ USA.
 ;;;; OS/2 Type Specification
 
 (define (initialize-c-types!)
-  (load-option 'hash-table)
   (set! c-type-names (make-equal-hash-table))
 
   (define-c-integer-type "signed char"  #t 1)
diff --git a/v7/src/star-parser/load.scm b/v7/src/star-parser/load.scm
index e681c5ebc..0e5db6cc1 100644
--- a/v7/src/star-parser/load.scm
+++ b/v7/src/star-parser/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 1.15 2003/02/14 18:28:35 cph Exp $
+$Id: load.scm,v 1.16 2003/04/25 03:53:58 cph Exp $
 
-Copyright 2001, 2002 Massachusetts Institute of Technology
+Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -23,8 +23,7 @@ USA.
 
 |#
 
-(load-option 'HASH-TABLE)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (package/system-loader "parser" '() 'QUERY)))
-(add-subsystem-identification! "*Parser" '(0 11))
\ No newline at end of file
+(add-subsystem-identification! "*Parser" '(0 12))
\ No newline at end of file
diff --git a/v7/src/win32/win_ffi.scm b/v7/src/win32/win_ffi.scm
index 8fac2ec91..1f7653110 100644
--- a/v7/src/win32/win_ffi.scm
+++ b/v7/src/win32/win_ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: win_ffi.scm,v 1.12 2003/03/29 05:54:59 cph Exp $
+$Id: win_ffi.scm,v 1.13 2003/04/25 03:54:44 cph Exp $
 
 Copyright 1993,1994,1998,2001,2002,2003 Massachusetts Institute of Technology
 
@@ -144,8 +144,6 @@ USA.
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(load-option 'hash-table)
-
 (define make-integer-hash-table
         (hash-table/constructor  modulo
 				 int:=
@@ -489,4 +487,4 @@ USA.
   (initialize-wndproc-registry)
   (add-gc-daemon! wndproc-registry-cleaner)
   ;(start-message-polling-thread)
-)
+)
\ No newline at end of file