Skip to content

Commit de61aef

Browse files
committed
key.cljc: use Phel's newly added map-entry function
1 parent 79d2c59 commit de61aef

2 files changed

Lines changed: 2 additions & 2 deletions

File tree

test/clojure/core_test/key.cljc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@
1212
;; https://groups.google.com/g/clojure/c/FVcrbHJpCW4/m/Fh7NsX_Yb7sJ
1313
(is (= 'k (key #?(:cljs (cljs.core/MapEntry. 'k 'v nil)
1414
:lpy (map-entry 'k 'v)
15-
:phel ['k 'v] ; Phel map entries are vectors
15+
:phel (map-entry 'k 'v)
1616
:default (clojure.lang.MapEntry/create 'k 'v)))))
1717
(when-var-exists sorted-map
1818
(is (= :a (key (first (sorted-map :a :b))))))

test/clojure/core_test/val.cljc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111
;; https://groups.google.com/g/clojure/c/FVcrbHJpCW4/m/Fh7NsX_Yb7sJ
1212
(is (= 'v (val #?(:cljs (cljs.core/MapEntry. 'k 'v nil)
1313
:lpy (map-entry 'k 'v)
14-
:phel ['k 'v] ; Phel represents map entries as vectors
14+
:phel (map-entry 'k 'v)
1515
:default (clojure.lang.MapEntry/create 'k 'v)))))
1616
(is (= :b (val (first (hash-map :a :b)))))
1717
(when-var-exists sorted-map

0 commit comments

Comments
 (0)