From 77c8301526fc3a8f420c2922eefad215bd8d8dba Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sun, 20 Dec 2009 08:19:46 -0800 Subject: [PATCH] Ensure weak symbols aren't removed from hash table keys. --- src/runtime/hashtb.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.25.1