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

diff --git a/v7/src/compiler/base/make.scm b/v7/src/compiler/base/make.scm
index 950955556733f4da0dda8ef5453fcac406fc32de..68b7f47e69affc9b9a257bf1525e5470dd28b97c 100644 (file)
--- 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 f5678ab5ce08ddbec12677d5edca5c1497732384..ad99a903626246d42e9304533778b20c58387370 100644 (file)
--- 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)
 \f
 ;;;; Syntax

diff --git a/v7/src/pcsample/pcsample.scm b/v7/src/pcsample/pcsample.scm
index 5cacec303ba9c6f444a51a98b5a3a72b74d1ffdb..3e0aa9dd4c7d8750bcb43fed72e159d88d966f04 100644 (file)
--- 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 28378615dbb617b37604b6e671823f9e13a51a6f..bfdb6388912f63159cf051538bdbdef85ddae4cd 100644 (file)
--- 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 4bff981732004bbfb3de2feb6371d3cc12e34951..a4d7f3d45f98b8a0b4c2de0bfff2b400e78bd82f 100644 (file)
--- 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 e681c5ebcc17031bf35c2156c6f5205738f65d2f..0e5db6cc152199f582e3a9141b509fe4d337c1e3 100644 (file)
--- 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 8fac2ec9153ede0f3fa05527c18524fde72be137..1f7653110be185ee49f74b625dc5d162c5325007 100644 (file)
--- 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