From 097a3ee6c70d396a3277fb96374abbfc2da86e51 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 20 Dec 2009 11:29:17 -0800
Subject: [PATCH] Allow uninterned symbols to be weak keys.

---
 src/runtime/hashtb.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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