Skip to content
Browse files

* src/main/clojure/clojure/core/match.clj: MATCH-29: match should not…

… throw, return nil if no match found like cond
  • Loading branch information...
1 parent a956fe7 commit c9e47acfc7dd4364428cfe011476a3492787f050 @swannodette swannodette committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/main/clojure/clojure/core/match.clj
View
2 src/main/clojure/clojure/core/match.clj
@@ -1461,7 +1461,7 @@
(if (= :else p)
(do (trace-matrix "Convert :else clause to row of wildcards")
(conj (vec (butlast cs)) [(->> vars (map (fn [_] '_)) vec) a]))
- cs))
+ (conj (vec cs) [(->> vars (map (fn [_] '_)) vec) nil])))
clause-sources (into [] (map emit-clause cs))
vars (vec (map (fn [var]
(if (not (symbol? var))

0 comments on commit c9e47ac

Please sign in to comment.
Something went wrong with that request. Please try again.