From 61b25ca22dec5f59e3fc2e072a297ac544c8208b Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Mon, 21 Feb 2022 13:46:41 -0500
Subject: [PATCH] Clean up parse-tuple

---
 src/ludus/parser.clj | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/src/ludus/parser.clj b/src/ludus/parser.clj
index cd94af6..a96c65e 100644
--- a/src/ludus/parser.clj
+++ b/src/ludus/parser.clj
@@ -139,9 +139,7 @@
          members []
          current_member nil
          ]
-    (let [
-          curr (current parser)
-          ]
+    (let [curr (current parser)]
       (case (token-type parser)
         ::token/rparen (let [ms (add-member members current_member)]
                          (assoc (advance parser) ::ast 
@@ -161,12 +159,7 @@
         (panic origin "Unterminated tuple" ::token/eof) 
 
         (let [parsed (parse-expr parser)]
-          (recur parsed members (::ast parsed))
-          )
-        )
-      )
-    ) 
-  )
+          (recur parsed members (::ast parsed)))))))
 
 (defn- parse-list [parser]
   (loop [parser (advance parser)