Relocated any/every to base

scheme/base.sld

@@ -80,6 +80,8 @@
     flush-output-port
     read-line
     features
+    any
+    every
     and
     or
     begin
@@ -513,4 +515,22 @@
   ;    (if (null? *exception-handler-stack*)
   ;      Cyc-default-exception-handler
   ;      (car *exception-handler-stack*)))
+
+  ;; Simplified versions of every/any from SRFI-1
+  (define (any pred lst)
+    (let any* ((l (map pred lst)))
+        (cond
+          ((null? l) #f) ; Empty list
+          ((car l)   #t) ; Done
+          (else 
+             (any* (cdr l))))))
+  (define (every pred lst)
+    (let every* ((l (map pred lst)))
+        (cond
+          ((null? l) #t) ; Empty list
+          ((car l)
+             (every* (cdr l)))
+          (else 
+             #f))))
+
 ))

scheme/cyclone/util.sld

@@ -22,8 +22,6 @@
     delete
     delete-duplicates
     list-insert-at!
-    any
-    every
     filter)
   (begin
 
@@ -131,21 +129,4 @@
    ))
 ;; END name mangling section
 
-    ;; Simplified versions of every/any from SRFI-1
-    (define (any pred lst)
-      (let any* ((l (map pred lst)))
-          (cond
-            ((null? l) #f) ; Empty list
-            ((car l)   #t) ; Done
-            (else 
-               (any* (cdr l))))))
-    (define (every pred lst)
-      (let every* ((l (map pred lst)))
-          (cond
-            ((null? l) #t) ; Empty list
-            ((car l)
-               (every* (cdr l)))
-            (else 
-               #f))))
-
     ))