akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik K. Agaram 2021-04-15 19:13:01 -07:00
parent d41917290a
commit c414b9626f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
shell/parse.mu
View File

@ -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