Permalink
Browse files

* src/main/clojure/clojure/core/logic.clj: move everyo

  • Loading branch information...
1 parent 870dcc4 commit 9ef066ded70fc17c84b04b4046fe57ffe98fc171 David Nolen committed Aug 1, 2012
Showing with 8 additions and 7 deletions.
  1. +8 −7 src/main/clojure/clojure/core/logic.clj
@@ -2398,6 +2398,14 @@
(fresh [a]
(== (lcons a d) l)))
+(defn everyo
+ [g xs]
+ (if (seq xs)
+ (all
+ (g (first xs))
+ (everyo g (next xs)))
+ s#))
+
;; =============================================================================
;; Goal sugar syntax
@@ -3561,10 +3569,3 @@
([_ [y . ys] [y . zs]]
(!= y x)
(rembero x ys zs)))
-
-(defn everyo [g xs]
- (if (seq xs)
- (all
- (g (first xs))
- (everyo g (next xs)))
- s#))

0 comments on commit 9ef066d

Please sign in to comment.