From d4e1471f4425bf1fffc389ac1bf8c8b33cab66ef Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Thu, 31 Jul 2025 18:57:45 +0300
Subject: [PATCH] remove unused function

---
 sexc.scm | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/sexc.scm b/sexc.scm
index ce68f5c..c5bdef8 100644
--- a/sexc.scm
+++ b/sexc.scm
@@ -47,12 +47,6 @@
          (unkebabify atom)
          atom))))
 
-(define (tree-finder symbol)
-  (lambda (node)
-    (or (and (tree? node)
-             (eq? (car node) symbol))
-        #f)))
-
 (define (make-field-access form)
   (assert (= 2 (length form)) "Wrong field access format")
   (unkebabify