From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 20 Dec 2009 16:19:46 +0000 (-0800)
Subject: Ensure weak symbols aren't removed from hash table keys.
X-Git-Tag: 20100708-Gtk~195^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=77c8301526fc3a8f420c2922eefad215bd8d8dba;p=mit-scheme.git

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

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index da3eda0a5..73208d586 100644
--- 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)))