File tree Expand file tree Collapse file tree 2 files changed +11
-2
lines changed Expand file tree Collapse file tree 2 files changed +11
-2
lines changed Original file line number Diff line number Diff line change @@ -12436,6 +12436,13 @@ reduces them without incurring seq initialization"
12436
12436
(recur (inc i) init)))
12437
12437
init))))
12438
12438
12439
+ IDrop
12440
+ (-drop [v n]
12441
+ (let [cnt (alength array)]
12442
+ (if (< n cnt)
12443
+ (prim-seq array n)
12444
+ nil )))
12445
+
12439
12446
IComparable
12440
12447
(-compare [x y]
12441
12448
(if (vector? y)
Original file line number Diff line number Diff line change 193
193
(is (not (counted? (range ))))
194
194
(is (counted? (range 0 10 1 )))
195
195
(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 ))))
198
200
(is (= (range 0.5 8 1.2 ) '(0.5 1.7 2.9 4.1 5.3 6.5 7.7 )))
199
201
(is (= (range 0.5 -4 -2 ) '(0.5 -1.5 -3.5 )))
200
202
(testing " IDrop"
You can’t perform that action at this time.
0 commit comments