File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -12436,6 +12436,13 @@ reduces them without incurring seq initialization"
1243612436 (recur (inc i) init)))
1243712437 init))))
1243812438
12439+ IDrop
12440+ (-drop [v n]
12441+ (let [cnt (alength array)]
12442+ (if (< n cnt)
12443+ (prim-seq array n)
12444+ nil )))
12445+
1243912446 IComparable
1244012447 (-compare [x y]
1244112448 (if (vector? y)
Original file line number Diff line number Diff line change 193193 (is (not (counted? (range ))))
194194 (is (counted? (range 0 10 1 )))
195195 (is (not (counted? (range 0.1 10 1 ))))
196- (is (chunked-seq? (range 0 10 1 )))
197- (is (chunked-seq? (range 0.1 10 1 )))
196+ ; ; no chunked seqs in :lite-mode
197+ (when-not ^boolean LITE_MODE
198+ (is (chunked-seq? (range 0 10 1 )))
199+ (is (chunked-seq? (range 0.1 10 1 ))))
198200 (is (= (range 0.5 8 1.2 ) '(0.5 1.7 2.9 4.1 5.3 6.5 7.7 )))
199201 (is (= (range 0.5 -4 -2 ) '(0.5 -1.5 -3.5 )))
200202 (testing " IDrop"
You can’t perform that action at this time.
0 commit comments