From c414b9626f5892c441c871b1088ef3d60f06a9bf Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 15 Apr 2021 19:13:01 -0700
Subject: .

---
 shell/parse.mu | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/shell/parse.mu b/shell/parse.mu
index 6788c018..530f13b4 100644
--- a/shell/parse.mu
+++ b/shell/parse.mu
@@ -77,12 +77,10 @@ fn parse-sexpression tokens: (addr stream cell), _out: (addr handle cell), trace
         var tmp-storage: (handle cell)
         var tmp/edx: (addr handle cell) <- address tmp-storage
         $parse-sexpression:list-loop: {
-          {
-            var close-paren?/eax: boolean <- parse-sexpression tokens, tmp, trace
-            allocate-pair curr
-            compare close-paren?, 0/false
-            break-if-!= $parse-sexpression:list-loop
-          }
+          var close-paren?/eax: boolean <- parse-sexpression tokens, tmp, trace
+          allocate-pair curr
+          compare close-paren?, 0/false
+          break-if-!=
           var curr-addr/eax: (addr cell) <- lookup *curr
           var left/ecx: (addr handle cell) <- get curr-addr, left
           copy-object tmp, left
-- 
cgit 1.4.1-2-gfad0