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