remove unused helper function
This commit is contained in:
parent
e73d9cc590
commit
3f2b1d85bf
|
@ -558,11 +558,6 @@
|
|||
|
||||
(export define-record-type)
|
||||
|
||||
(define (fold f s xs)
|
||||
(if (null? xs)
|
||||
s
|
||||
(fold f (f (car xs) s) (cdr xs))))
|
||||
|
||||
;;; 6.6 Characters
|
||||
|
||||
(define-macro (define-char-transitive-predicate name op)
|
||||
|
|
Loading…
Reference in New Issue