2025-08-05 02:05:32 +02:00
1 changed files with 0 additions and 6 deletions
--- 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