Ensure weak symbols aren't removed from hash table keys.

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