From 097a3ee6c70d396a3277fb96374abbfc2da86e51 Mon Sep 17 00:00:00 2001 From: Joe Marshall 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