From cba4a6ebf5c4887d8312d684f9727deac6f324ca Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 22 Jul 2014 14:08:54 +0900
Subject: [PATCH] remvoe unused helper function

---
 piclib/prelude.scm | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/piclib/prelude.scm b/piclib/prelude.scm
index 71e5a11a..e8c251bd 100644
--- 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