Eliminate now-deprecated references to hash-table procedures.

diff --git a/src/edwin/comman.scm b/src/edwin/comman.scm
index 70b1bcb638a7fb047e4a124500d7d49cea6f7567..345ca6e7e9987144c73fdeea8aea0f0d9824272c 100644 (file)
--- a/src/edwin/comman.scm
+++ b/src/edwin/comman.scm
@@ -203,4 +203,4 @@ USA.
   (hash-table-ref/default permanent-local-variables variable #f))
 
 (define permanent-local-variables
-  (make-weak-eq-hash-table))
\ No newline at end of file
+  (make-key-weak-eq-hash-table))
\ No newline at end of file

diff --git a/src/edwin/curren.scm b/src/edwin/curren.scm
index 6fdc004cdddcf2f908c4206b1035bc31b5cca7e7..91a08cc7a6d5be24db7114f18d1077f3a1267dbb 100644 (file)
--- a/src/edwin/curren.scm
+++ b/src/edwin/curren.scm
@@ -622,7 +622,7 @@ The buffer is guaranteed to be selected at that time."
 
 (add-event-receiver! editor-initializations
   (lambda ()
-    (set! screen-buffer-layouts (make-weak-eq-hash-table))
+    (set! screen-buffer-layouts (make-key-weak-eq-hash-table))
     unspecific))
 \f
 ;;;; Point

diff --git a/src/edwin/eystep.scm b/src/edwin/eystep.scm
index 90a8ee6c1f7c2a10bc2147fbe4d522bdfd4ca5d1..323904f9fb20afeaa700a71a5c01beaf7e3acaaa 100644 (file)
--- a/src/edwin/eystep.scm
+++ b/src/edwin/eystep.scm
@@ -172,7 +172,7 @@ c   contract the step under the cursor")
       (get-stepper-buffer state)))
 
 (define stepper-buffers
-  (make-weak-eq-hash-table))
+  (make-key-weak-eq-hash-table))
 
 (define (current-stepper-state)
   (buffer->stepper-state (current-buffer)))
@@ -193,7 +193,7 @@ c   contract the step under the cursor")
 
 (define (get-buffer-ynode-regions buffer)
   (or (buffer-get buffer 'YNODE-REGIONS)
-      (let ((table (make-weak-eq-hash-table)))
+      (let ((table (make-key-weak-eq-hash-table)))
        (buffer-put! buffer 'YNODE-REGIONS table)
        table)))
 

diff --git a/src/edwin/prompt.scm b/src/edwin/prompt.scm
index d935f3b3a9629de9b126fa771615b6b9c23d2a44..946cf374c7d57e9487d4f1527e994567bfcc9aec 100644 (file)
--- a/src/edwin/prompt.scm
+++ b/src/edwin/prompt.scm
@@ -45,7 +45,7 @@ USA.
     (set! typein-saved-windows '())
     (set! map-name/internal->external identity-procedure)
     (set! map-name/external->internal identity-procedure)
-    (set! prompt-histories (make-weak-eq-hash-table))
+    (set! prompt-histories (make-key-weak-eq-hash-table))
     unspecific))
 
 (define (make-typein-buffer-name depth)

diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm
index 83b059f10d19b43f8d220914ff56355772003f69..3ee7d6f084812b8fdcdffd57e6448ba68e241ebc 100644 (file)
--- a/src/edwin/xterm.scm
+++ b/src/edwin/xterm.scm
@@ -931,7 +931,7 @@ USA.
       table)))
 
 (define display/cached-atoms-tables
-  (let ((table (make-weak-eq-hash-table)))
+  (let ((table (make-key-weak-eq-hash-table)))
     (lambda (display)
       (or (hash-table-ref/default table display #f)
          (let ((result
@@ -1111,7 +1111,7 @@ In either case, it is copied to the primary selection."
         #t)))
 
 (define display/selection-records
-  (let ((table (make-weak-eq-hash-table)))
+  (let ((table (make-key-weak-eq-hash-table)))
     (lambda (display)
       (or (hash-table-ref/default table display #f)
          (let ((result (make-strong-eq-hash-table)))

diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm
index 75d174ab862d78497458995b28c9f7b6aba66f65..fe590f569ae2160af2f111912af5d4b58937bdaf 100644 (file)
--- a/src/imail/imail-core.scm
+++ b/src/imail/imail-core.scm
@@ -406,7 +406,7 @@ USA.
   (hash-table-delete! memoized-resources url))
 
 (define memoized-resources
-  (make-weak-eq-hash-table))
+  (make-key-weak-eq-hash-table))
 \f
 ;;;; Folder operations
 

diff --git a/src/ssp/xmlrpc.scm b/src/ssp/xmlrpc.scm
index d2ff0b4d90b9ec9ec6c2774c97f547834471db83..5f0d6f15e43d2b9f765a1ff61e75ce152892a438 100644 (file)
--- a/src/ssp/xmlrpc.scm
+++ b/src/ssp/xmlrpc.scm
@@ -58,7 +58,7 @@ USA.
                  (apply handler params)))))))))))
 
 (define (get-xmlrpc-method-handler pathname name)
-  (let ((methods (make-weak-eq-hash-table)))
+  (let ((methods (make-key-weak-eq-hash-table)))
     (let ((environment (make-expansion-environment pathname)))
       (environment-define environment 'define-xmlrpc-method
        (lambda (name handler)

diff --git a/src/x11-screen/x11-screen.scm b/src/x11-screen/x11-screen.scm
index 0794edd93bb946262f05a250bc9b5dcbe0470d6a..fab527c2af8ed35e00a9fca9c4f4b874a997d667 100644 (file)
--- a/src/x11-screen/x11-screen.scm
+++ b/src/x11-screen/x11-screen.scm
@@ -870,7 +870,7 @@ USA.
 
 (define display/cached-atoms-tables
   ;; This table needs replacing.  It holds interned symbols strongly!
-  (let ((table (make-weak-eq-hash-table)))
+  (let ((table (make-key-weak-eq-hash-table)))
     (lambda (display)
       (let ((key (intern (alien/address-string display))))
        (or (hash-table-ref/default table key #f)
@@ -1053,7 +1053,7 @@ In either case, it is copied to the primary selection."
 
 (define display/selection-records
   ;; This table needs replacing.  It holds interned symbols strongly.
-  (let ((table (make-weak-eq-hash-table)))
+  (let ((table (make-key-weak-eq-hash-table)))
     (lambda (display)
       (let ((key (intern (alien/address-string display))))
        (or (hash-table-ref/default table key #f)

diff --git a/src/xdoc/xdoc.scm b/src/xdoc/xdoc.scm
index 8ff5b368b8e52106e81ebecb6d3ea8d67ad0bf74..88152227d3febfc1b1dc19752e123ff439a7d113 100644 (file)
--- a/src/xdoc/xdoc.scm
+++ b/src/xdoc/xdoc.scm
@@ -88,10 +88,10 @@ USA.
                    (*xdoc-environment* environment)
                    (*xdoc-root*)
                    (*xdoc-late?*)
-                   (*xdoc-element-properties* (make-weak-eq-hash-table))
+                   (*xdoc-element-properties* (make-key-weak-eq-hash-table))
                    (*xdoc-id-map* (make-strong-eq-hash-table))
-                   (*xdoc-inputs* (make-weak-eq-hash-table))
-                   (*xdoc-outputs* (make-weak-eq-hash-table)))
+                   (*xdoc-inputs* (make-key-weak-eq-hash-table))
+                   (*xdoc-outputs* (make-key-weak-eq-hash-table)))
          (let ((document (read/expand-xml-file pathname environment)))
            (set! *xdoc-root* (xml-document-root document))
            (set! *xdoc-late?* (due-date-in-past?))