remove unused function

This commit is contained in:
2025-07-31 18:57:45 +03:00
parent 4b6a7d5209
commit d4e1471f44

View File

@@ -47,12 +47,6 @@
(unkebabify atom) (unkebabify atom)
atom)))) atom))))
(define (tree-finder symbol)
(lambda (node)
(or (and (tree? node)
(eq? (car node) symbol))
#f)))
(define (make-field-access form) (define (make-field-access form)
(assert (= 2 (length form)) "Wrong field access format") (assert (= 2 (length form)) "Wrong field access format")
(unkebabify (unkebabify