File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -12605,17 +12605,17 @@ reduces them without incurring seq initialization"
1260512605 (if-not (nil? (scan-array 1 k strkeys))
1260612606 (if (identical? v (gobject/get strobj k))
1260712607 coll
12608- ; ; overwrite
12608+ ; overwrite
1260912609 (let [new-strobj (obj-clone strobj strkeys)]
1261012610 (gobject/set new-strobj k v)
1261112611 (ObjMap. meta strkeys new-strobj nil )))
12612- ; ; append
12612+ ; append
1261312613 (let [new-strobj (obj-clone strobj strkeys)
1261412614 new-keys (aclone strkeys)]
1261512615 (gobject/set new-strobj k v)
1261612616 (.push new-keys k)
1261712617 (ObjMap. meta new-keys new-strobj nil )))
12618- ; ; non-string key. game over.
12618+ ; non-string key. game over.
1261912619 (-with-meta
1262012620 (-kv-reduce coll
1262112621 (fn [ret k v]
You can’t perform that action at this time.
0 commit comments