File tree
Expand file treeCollapse file tree2 files changed
+10
-1
lines changed Expand file treeCollapse file tree2 files changed
+10
-1
lines changed Original file line number | Diff line number | Diff line change |
---|
@@ -4668,7 +4668,7 @@ reduces them without incurring seq initialization"
|
4668 | 4668 | {:added "1.2"
|
4669 | 4669 | :static true}
|
4670 | 4670 | ([m ks]
|
4671 |
| -(get-in m ks nil)) |
| 4671 | +(reduce get m ks)) |
4672 | 4672 | ([m ks not-found]
|
4673 | 4673 | (loop [sentinel lookup-sentinel
|
4674 | 4674 | m m
|
|
Original file line number | Diff line number | Diff line change |
---|
|
3111 | 3111 | (deftest test-cljs-1569
|
3112 | 3112 | (is (= (meta (with-meta (seq [1 2 3]) {:a 1})) {:a 1})))
|
3113 | 3113 |
|
| 3114 | +(deftest test-cljs-1420 |
| 3115 | +(is (= :2-arity |
| 3116 | +(get-in |
| 3117 | +(reify |
| 3118 | +ILookup |
| 3119 | +(-lookup [o k] :2-arity) |
| 3120 | +(-lookup [o k not-found] :3-arity)) |
| 3121 | +[:foo])))) |
| 3122 | + |
3114 | 3123 |
|
3115 | 3124 | (comment
|
3116 | 3125 | ;; ObjMap
|
|
You can’t perform that action at this time.
0 commit comments