Permalink
Browse files

test and fix for MATCH-92

  • Loading branch information...
levand authored and swannodette committed Jan 13, 2014
1 parent e3d2c9d commit eee5c814ce3e8256b0450cbeafb7f917418ebeaf
Showing with 7 additions and 1 deletion.
  1. +1 −1 src/main/clojure/clojure/core/match.clj
  2. +6 −0 src/test/clojure/clojure/core/match/test/core.clj
@@ -1132,7 +1132,7 @@ col with the first column and compile the result"
(vec (map #(specialize-map-pattern-row % env) rows)))
(defn gen-map-pattern-ocr [ocr k]
- (gensym (str (name ocr) "_" (name k) "__")))
+ (gensym (str (name ocr) "_" (.replace (name k) "." "_DOT_") "__")))
(defn map-pattern-matrix-ocr-sym [k env]
(let [focr (:focr env)
@@ -916,3 +916,9 @@
[[1 1 3]] :a0
[[3 & r]] :a2))
:a2)))
+
+(deftest match-92
+ (is (= (let [m {:a.b 1}]
+ (match [m]
+ [{:a.b _}] :a0))
+ :a0)))

0 comments on commit eee5c81

Please sign in to comment.