~ chicken-core (chicken-5) a11dafa431b2e38a77f95abc7caa78e55010bb11

commit a11dafa431b2e38a77f95abc7caa78e55010bb11
Author:     Jani Hakala <jahakala@iki.fi>
AuthorDate: Tue Jun 4 11:19:08 2024 +0300
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Wed Jun 12 16:20:41 2024 +0200

    Apply caretize only to the echoed line
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/egg-compile.scm b/egg-compile.scm
index dd7c429e..f7306d39 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -1185,14 +1185,16 @@ copy /y nul ~a~a~%
 ~a
 EOF
                mkdir ddir qdir
-	       ddir dest
-	       (string-intersperse (map (lambda (line)
-					  (ensure-line-limit
-                                             (caretize (format "echo ~a >>~a~a"
-                                                               line ddir dest))
-                                             8191 ))
-					(string-split infostr "\n"))
-				   "\n"))))))
+               ddir dest
+               (string-intersperse (map (lambda (line)
+                                          (ensure-line-limit
+                                            (format "echo ~a >>~a~a"
+                                                    (caretize line)
+                                                    (caretize ddir)
+                                                    (caretize dest))
+                                            8191))
+                                        (string-split infostr "\n"))
+                                   "\n"))))))
 
 ;;; some utilities for mangling + quoting