remove unused helper function

2014-08-03 14:02:13 +09:00
parent e73d9cc590
commit 3f2b1d85bf
1 changed files with 0 additions and 5 deletions
@@ -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)