diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-04-15 19:13:01 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-04-15 19:13:01 -0700 |
commit | c414b9626f5892c441c871b1088ef3d60f06a9bf (patch) | |
tree | 7aaf96dc19b4404d1fbf0a578e6d2aeb8a4bdae7 | |
parent | d41917290ae8e19bdfa76df15e6ee2f74cf7d970 (diff) | |
download | mu-c414b9626f5892c441c871b1088ef3d60f06a9bf.tar.gz |
.
-rw-r--r-- | shell/parse.mu | 10 |
1 files 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 |