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