allow string keys to contain a slash

fixes https://clojure.atlassian.net/browse/MATCH-129

Signed-off-by: Alex Miller <alex.miller@cognitect.com>

Author: kkrausse

src/main/clojure/clojure/core/match.clj

@@ -1169,7 +1169,9 @@ 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) "_" (.replace (name k) "." "_DOT_") "__")))
+  (gensym (str (name ocr) "_" (->  (name k)
+                                   (.replace "." "_DOT_")
+                                   (.replace "/" "_SLASH_")) "__")))
 
 (defn map-pattern-matrix-ocr-sym [k env]
   (let [focr (:focr env)

src/test/clojure/clojure/core/match/test/core.clj

@@ -970,3 +970,9 @@
            (match [m]
              [{:a.b _}] :a0))
          :a0)))
+
+(deftest match-93
+  (is (= (let [m {"a/b" "a"}]
+           (match [m]
+             [{"a/b" "a"}] :a))
+         :a)))