~ chicken-core (master) b56d15e7eb40bc34fbf24725063b6f7bd3485306

commit b56d15e7eb40bc34fbf24725063b6f7bd3485306
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 8 11:30:43 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 8 11:30:43 2025 +0200

    not used anymore

diff --git a/egg-compile.scm b/egg-compile.scm
index 8ed3a8d4..46ca93d2 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -1263,10 +1263,6 @@ EOF
 
 (define (maybe f x) (if f (list x) '()))
 
-(define (caretize str)
-  (string-translate* str '(("&" . "^&") ("^" . "^^") ("|" . "^|")
-                           ("<" . "^<") (">" . "^>"))))
-
 (define (ensure-line-limit str lim)
   (when (>= (string-length str) lim)
     (error "line length exceeds platform limit: " str))