cljfmt

src/ludus/parser.clj

@@ -440,8 +440,6 @@
                 (parse-expr parser))]
           (recur parsed exprs (::ast parsed)))))))
 
-
-
 (defn- parse-synthetic [parser]
   (loop [parser parser
          terms []]
@@ -489,8 +487,7 @@
               :token (current origin)
               :into {::ast/type ::ast/placeholder :token (current origin)}})
 
-      (panic origin "Splat patterns may only splat into words or placeholders.")
-      )))
+      (panic origin "Splat patterns may only splat into words or placeholders."))))
 
 (defn- parse-list-pattern [origin]
   (loop [parser (accept-many #{::token/newline ::token/comma} (advance origin))
@@ -637,7 +634,6 @@
 
         (panic parser "Struct patterns may only include single words or keyword+pattern pairs." #{::token/rbrace})))))
 
-
 (defn- parse-tuple-pattern [origin]
   (loop [parser (accept-many #{::token/newline ::token/comma} (advance origin))
          members []
@@ -654,7 +650,6 @@
                     :members ms})
             (panic parser "A splat my only appear once in a tuple pattern, at the end of the pattern.")))
 
-
         (::token/comma ::token/newline)
         (recur
          (accept-many #{::token/comma ::token/newline} parser)
@@ -1067,7 +1062,6 @@
           (panic dt-ast (str "Undexpected " (get-in dt-ast [::token :lexeme]) "after datatype declaration."))))
       (panic dt "Expected datatype name after data reserved word."))))
 
-
 (defn- parse-toplevel [parser]
   (case (token-type parser)
     ::token/ns (parse-ns parser)