From c3c5c390e5aff220c569d66f5c6e5235bfd1037c Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Sun, 19 Jun 2022 14:57:04 -0400
Subject: [PATCH] Unroll copypasta.

---
 src/ludus/parser.clj | 46 ++++++++++++--------------------------------
 1 file changed, 12 insertions(+), 34 deletions(-)

diff --git a/src/ludus/parser.clj b/src/ludus/parser.clj
index 7400444..fd1331e 100644
--- a/src/ludus/parser.clj
+++ b/src/ludus/parser.clj
@@ -522,7 +522,7 @@
                :token (current origin)
                :length (count ms)
                :members ms})
-            (panic parser "A splat my only appear once in a list pattern, at the end of the pattern.")))
+            (panic parser "A splat my only appear once in a pattern, at the end of a pattern.")))
 
         (::token/comma ::token/newline)
         (recur
@@ -548,15 +548,11 @@
          current_member nil]
     (let [curr (current parser)]
       (case (token-type parser)
-        ::token/rbrace
-        (let [ms (add-member members current_member)]
-          (if (not-any? #(= (::ast/type %) ::ast/splat) (drop-last ms))
-            (assoc (advance parser) ::ast
-              {::ast/type ::ast/tuple
-               :token (current origin)
-               :length (count ms)
-               :members ms})
-            (panic parser "A splat my only appear once in a dict pattern, at the end of the pattern.")))
+        ::token/rbrace (let [ms (add-member members current_member)]
+                         (assoc (advance parser) ::ast
+                           {::ast/type ::ast/dict
+                            :token (current origin)
+                            :members ms}))
 
         (::token/comma ::token/newline)
         (recur
@@ -569,10 +565,6 @@
         ::token/eof
         (panic (assoc origin ::errors (::errors parser)) "Unterminated dict pattern" ::token/eof)
 
-        ::token/splat
-        (let [splatted (parse-splat-pattern parser)]
-          (recur splatted members (::ast splatted)))
-
         ::token/word
         (if (not current_member)
           (let [parsed (parse-word parser) word (get-in parsed [::ast :word])]
@@ -593,15 +585,11 @@
          current_member nil]
     (let [curr (current parser)]
       (case (token-type parser)
-        ::token/rbrace
-                (let [ms (add-member members current_member)]
-          (if (not-any? #(= (::ast/type %) ::ast/splat) (drop-last ms))
-            (assoc (advance parser) ::ast
-              {::ast/type ::ast/tuple
-               :token (current origin)
-               :length (count ms)
-               :members ms})
-            (panic parser "A splat my only appear once in a struct pattern, at the end of the pattern.")))
+        ::token/rbrace (let [ms (add-member members current_member)]
+                         (assoc (advance parser) ::ast
+                           {::ast/type ::ast/struct
+                            :token (current origin)
+                            :members ms}))
 
         (::token/comma ::token/newline)
         (recur
@@ -614,10 +602,6 @@
         ::token/eof
         (panic (assoc origin ::errors (::errors parser)) "Unterminated struct pattern" ::token/eof)
 
-        ::token/splat
-        (let [splatted (parse-splat-pattern parser)]
-          (recur splatted members (::ast splatted)))
-
         ::token/word
         (if (not current_member)
           (let [parsed (parse-word parser) word (get-in parsed [::ast :word])]
@@ -641,13 +625,11 @@
       (case (token-type parser)
         ::token/rparen 
         (let [ms (add-member members current_member)]
-          (if (not-any? #(= (::ast/type %) ::ast/splat) (drop-last ms))
             (assoc (advance parser) ::ast
               {::ast/type ::ast/tuple
                :token (current origin)
                :length (count ms)
-               :members ms})
-            (panic parser "A splat my only appear once in a tuple pattern, at the end of the pattern.")))
+               :members ms}))
           
 
         (::token/comma ::token/newline)
@@ -661,10 +643,6 @@
         ::token/eof
         (panic (assoc origin ::errors (::errors parser)) "Unterminated tuple" ::token/eof)
 
-        ::token/splat
-        (let [splatted (parse-splat-pattern parser)]
-          (recur splatted members (::ast splatted)))
-
         (let [parsed (parse-pattern parser)]
           (recur parsed members (::ast parsed)))))))