Hi, Please check the attached patch (C6 only).
All the best. Mario -- https://parenteses.org/mario
>From c94eef45b1c743ae08e41d8e9bc3a20fda03a0c3 Mon Sep 17 00:00:00 2001 From: Mario Domenech Goulart <[email protected]> Date: Sun, 6 Apr 2025 19:23:43 +0200 Subject: [PATCH] Drop useless binding of string-copy in string->uninterned-symbol The use of string-copy in string->uninterned-symbol was dropped in 860f8d764. --- library.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) -- 2.47.2
