From b11e4537f90ae560856234e16914edd8fc957ba5 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Tue, 3 Sep 2024 13:19:19 +0900
Subject: Remove unused procedure

---
 qklib/infix.scm | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/qklib/infix.scm b/qklib/infix.scm
index 3cde341..6dc68fb 100644
--- a/qklib/infix.scm
+++ b/qklib/infix.scm
@@ -39,9 +39,6 @@
       infix-error?
       (expr infix-error-expr))
 
-    (define (all-list-copy x)
-      (map-all-list list-copy x))
-
     (define infix->prefix
       (case-lambda
         ((expr failure)
-- 
cgit v1.2.3