~ chicken-core (master) 7d843ff43c02a1de21541518bc4ea3eec6dcc092

commit 7d843ff43c02a1de21541518bc4ea3eec6dcc092
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jun 29 08:57:18 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jun 29 08:57:18 2026 +0200

    clear in both tables, when dropping char name
    
    (reported by Kon)

diff --git a/library.scm b/library.scm
index f0336828..7ab5c509 100644
--- a/library.scm
+++ b/library.scm
@@ -3846,7 +3846,9 @@ EOF
                (case chr
                  ((#:none) (and a (##sys#slot a 1)))
                  ((#f) 
-                  (when a (##sys#setslot a 0 #f))
+                  (when a 
+                    (##sys#setslot a 0 #f)
+                    (##sys#setslot (lookup-char (##sys#slot a 1)) 0 #f))
                   (##core#undefined))
                  (else
                    (##sys#check-char chr 'char-name)