diff options
Diffstat (limited to 'src/lux/base.clj')
-rw-r--r-- | src/lux/base.clj | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/lux/base.clj b/src/lux/base.clj index 622b5b1fc..89f9bb36a 100644 --- a/src/lux/base.clj +++ b/src/lux/base.clj @@ -266,9 +266,11 @@ ;; else (mapv transform-pattern pattern)) - (seq? pattern) [(-> (ns-resolve *ns* (first pattern)) - meta - ::idx) + (seq? pattern) [(if-let [tag-var (ns-resolve *ns* (first pattern))] + (-> tag-var + meta + ::idx) + (assert false (str "Unknown var: " (first pattern)))) '_ (transform-pattern (vec (rest pattern)))] :else pattern |