24
24
^{:doc " bound in a repl thread to the most recent value printed" }
25
25
*1 )
26
26
27
- (def
27
+ (def
28
28
^{:doc " bound in a repl thread to the second most recent value printed" }
29
29
*2 )
30
30
@@ -830,7 +830,7 @@ reduces them without incurring seq initialization"
830
830
831
831
(defn /
832
832
" If no denominators are supplied, returns 1/numerator,
833
- else returns numerator divided by all of the denominators."
833
+ else returns numerator divided by all of the denominators."
834
834
([x] (/ 1 x))
835
835
([x y] (js* " (~{x} / ~{y})" )) ; ; FIXME: waiting on cljs.core//
836
836
([x y & more] (reduce / (/ x y) more)))
@@ -1107,7 +1107,7 @@ reduces them without incurring seq initialization"
1107
1107
(defn- extend-object!
1108
1108
" Takes a JavaScript object and a map of names to functions and
1109
1109
attaches said functions as methods on the object. Any references to
1110
- JavaScript's implict this (via the this-as macro) will resolve to the
1110
+ JavaScript's implict this (via the this-as macro) will resolve to the
1111
1111
object that the function is attached."
1112
1112
[obj fn-map]
1113
1113
(doseq [[key-name f] fn-map]
@@ -1232,7 +1232,7 @@ reduces them without incurring seq initialization"
1232
1232
1233
1233
ISeqable
1234
1234
(-seq [string] (prim-seq string 0 ))
1235
-
1235
+
1236
1236
ICounted
1237
1237
(-count [s] (.-length s))
1238
1238
@@ -1482,8 +1482,8 @@ reduces them without incurring seq initialization"
1482
1482
(defn complement
1483
1483
" Takes a fn f and returns a fn that takes the same arguments as f,
1484
1484
has the same effects, if any, and returns the opposite truth value."
1485
- [f]
1486
- (fn
1485
+ [f]
1486
+ (fn
1487
1487
([] (not (f )))
1488
1488
([x] (not (f x)))
1489
1489
([x y] (not (f x y)))
@@ -1500,15 +1500,15 @@ reduces them without incurring seq initialization"
1500
1500
fn (right-to-left) to the result, etc."
1501
1501
([] identity)
1502
1502
([f] f)
1503
- ([f g]
1504
- (fn
1503
+ ([f g]
1504
+ (fn
1505
1505
([] (f (g )))
1506
1506
([x] (f (g x)))
1507
1507
([x y] (f (g x y)))
1508
1508
([x y z] (f (g x y z)))
1509
1509
([x y z & args] (f (apply g x y z args)))))
1510
- ([f g h]
1511
- (fn
1510
+ ([f g h]
1511
+ (fn
1512
1512
([] (f (g (h ))))
1513
1513
([x] (f (g (h x))))
1514
1514
([x y] (f (g (h x y))))
@@ -1751,8 +1751,8 @@ reduces them without incurring seq initialization"
1751
1751
1752
1752
(defn cycle
1753
1753
" Returns a lazy (infinite!) sequence of repetitions of the items in coll."
1754
- [coll] (lazy-seq
1755
- (when-let [s (seq coll)]
1754
+ [coll] (lazy-seq
1755
+ (when-let [s (seq coll)]
1756
1756
(concat s (cycle s)))))
1757
1757
1758
1758
(defn split-at
@@ -2004,9 +2004,9 @@ reduces them without incurring seq initialization"
2004
2004
2005
2005
IReduce
2006
2006
(-reduce [v f]
2007
- (ci-reduce array f))
2007
+ (ci-reduce array f))
2008
2008
(-reduce [v f start]
2009
- (ci-reduce array f start))
2009
+ (ci-reduce array f start))
2010
2010
2011
2011
IFn
2012
2012
(-invoke [coll k]
@@ -2306,7 +2306,7 @@ reduces them without incurring seq initialization"
2306
2306
(-invoke [coll k]
2307
2307
(-lookup coll k))
2308
2308
(-invoke [coll k not-found]
2309
- (-lookup coll k not-found)))
2309
+ (-lookup coll k not-found)))
2310
2310
2311
2311
(set! cljs.core.ObjMap/EMPTY (ObjMap. nil (array ) (js-obj )))
2312
2312
@@ -2643,7 +2643,6 @@ reduces them without incurring seq initialization"
2643
2643
2644
2644
ISeq
2645
2645
(-first [rng] start)
2646
-
2647
2646
(-rest [rng]
2648
2647
(if (-seq rng)
2649
2648
(Range. meta (+ start step) end step)
@@ -3152,7 +3151,7 @@ reduces them without incurring seq initialization"
3152
3151
mind that regardless of the result or action of the watch fns the
3153
3152
atom's value will change. Example:
3154
3153
3155
- (def a (atom 0))
3154
+ (def a (atom 0))
3156
3155
(add-watch a :inc (fn [k r o n] (assert (== 0 n))))
3157
3156
(swap! a inc)
3158
3157
;; Assertion Error
0 commit comments