cl-parser: Dedicated parsing logic for patterns!

compiler/cl-ast/src/ast_visitor/fold.rs

@@ -253,6 +253,7 @@ pub trait Fold {
     fn fold_pattern(&mut self, p: Pattern) -> Pattern {
         match p {
             Pattern::Name(sym) => Pattern::Name(self.fold_sym(sym)),
+            Pattern::Path(path) => Pattern::Path(self.fold_path(path)),
             Pattern::Literal(literal) => Pattern::Literal(self.fold_literal(literal)),
             Pattern::Rest(Some(name)) => Pattern::Rest(Some(self.fold_pattern(*name).into())),
             Pattern::Rest(None) => Pattern::Rest(None),

compiler/cl-ast/src/ast_visitor/walk.rs

@@ -793,6 +793,7 @@ impl Walk for Pattern {
     fn children<'a, V: Visit<'a>>(&'a self, v: &mut V) {
         match self {
             Pattern::Name(sym) => sym.visit_in(v),
+            Pattern::Path(path) => path.visit_in(v),
             Pattern::Literal(literal) => literal.visit_in(v),
             Pattern::Rest(pattern) => pattern.visit_in(v),
             Pattern::Ref(mutability, pattern) => {