~ chicken-core (chicken-5) fbb6ce8144cfcc9e6ced2b6bbf18cbce34e49917

commit fbb6ce8144cfcc9e6ced2b6bbf18cbce34e49917
Author:     Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Sun Apr 6 19:23:43 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Apr 7 10:28:39 2025 +0200

    Drop useless binding of string-copy in string->uninterned-symbol
    
    The use of string-copy in string->uninterned-symbol was dropped in
    860f8d764.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/library.scm b/library.scm
index 8fba86d7..9c600d8b 100644
--- a/library.scm
+++ b/library.scm
@@ -3307,10 +3307,9 @@ EOF
     (##sys#string->symbol str)))
 
 (set! chicken.base#string->uninterned-symbol
-  (let ((string-copy string-copy))
-    (lambda (str)
-      (##sys#check-string str 'string->uninterned-symbol)
-      (##sys#make-symbol (##sys#string->symbol-name str)))))
+  (lambda (str)
+    (##sys#check-string str 'string->uninterned-symbol)
+    (##sys#make-symbol (##sys#string->symbol-name str))))
 
 (set! chicken.base#gensym
   (let ((counter -1))