remove unused function
This commit is contained in:
6
sexc.scm
6
sexc.scm
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user