Skip to content

Commit

Permalink
include seq
Browse files Browse the repository at this point in the history
  • Loading branch information
swannodette committed May 8, 2013
1 parent 6b70865 commit 8dc7e72
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/mori.cljs
@@ -1,6 +1,6 @@
(ns mori (ns mori
(:refer-clojure :exclude (:refer-clojure :exclude
[count empty first rest conj cons find nth last assoc dissoc [count empty first rest seq conj cons find nth last assoc dissoc
get-in update-in assoc-in fnil disj pop peek hash get contains? empty? reverse get-in update-in assoc-in fnil disj pop peek hash get contains? empty? reverse
take drop partition partition-by iterate into take drop partition partition-by iterate into
interpose interleave concat flatten interpose interleave concat flatten
Expand All @@ -20,6 +20,7 @@
(def ^:export empty cljs.core/empty) (def ^:export empty cljs.core/empty)
(def ^:export first cljs.core/first) (def ^:export first cljs.core/first)
(def ^:export rest cljs.core/rest) (def ^:export rest cljs.core/rest)
(def ^:export seq cljs.core/seq)
(def ^:export conj cljs.core/conj) (def ^:export conj cljs.core/conj)
(def ^:export cons cljs.core/cons) (def ^:export cons cljs.core/cons)
(def ^:export find cljs.core/find) (def ^:export find cljs.core/find)
Expand Down Expand Up @@ -120,7 +121,7 @@
(def ^:export is-odd (fn [n] (== (mod n 2) 1))) (def ^:export is-odd (fn [n] (== (mod n 2) 1)))


(defn ^:export each [xs f] (defn ^:export each [xs f]
(doseq [x (seq xs)] (doseq [x xs]
(f x))) (f x)))


(def ^:export identity cljs.core/identity) (def ^:export identity cljs.core/identity)
Expand Down

0 comments on commit 8dc7e72

Please sign in to comment.