remove unused helper function

This commit is contained in:
Yuichi Nishiwaki 2014-08-03 14:02:13 +09:00
parent e73d9cc590
commit 3f2b1d85bf
1 changed files with 0 additions and 5 deletions

View File

@ -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)