remvoe unused helper function

2014-07-22 14:08:54 +09:00 · 2014-07-22 14:08:54 +09:00 · cba4a6ebf5
parent 4676550961
commit cba4a6ebf5
1 changed files with 0 additions and 7 deletions
--- a/piclib/prelude.scm
+++ b/piclib/prelude.scm
@ -577,13 +577,6 @@

 (export define-record-type)

-(define (every pred list)
-  (if (null? list)
-      #t
-      (if (pred (car list))
-	  (every pred (cdr list))
-	  #f)))
-
 (define (fold f s xs)
  (if (null? xs)
      s