Allow uninterned symbols to be weak keys.

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index 73208d586c778d858eeb60147546ab53fb9db256..629b6adc116c05ed5fedcc51c59f901d0c141e33 100644 (file)
--- a/src/runtime/hashtb.scm
+++ b/src/runtime/hashtb.scm
@@ -294,7 +294,7 @@ USA.
 (define-integrable (%weak-make-entry key datum)
   (if (or (not key)
          (number? key)                 ;Keep numbers in table.
-         (symbol? key))                ;Symbols, too.
+         (interned-symbol? key))       ;Symbols, too.
       (cons key datum)
       (system-pair-cons (ucode-type weak-cons) key datum)))