diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-05-18 19:51:58 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-05-18 20:01:11 -0700 |
| commit | 91b7b0be73b88c38e11e21501e813a6b7a048f45 (patch) | |
| tree | 79b0a784a3c6ffa8d91ef7e18c429ea074a8f415 /shell/evaluate.mu | |
| parent | 837926751a5bc1abe60cb49e8b5243705c6591da (diff) | |
| download | mu-91b7b0be73b88c38e11e21501e813a6b7a048f45.tar.gz | |
shell: clean up trace for macroexpand
Diffstat (limited to 'shell/evaluate.mu')
| -rw-r--r-- | shell/evaluate.mu | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 5b58fc08..d4fee50e 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -1561,6 +1561,7 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e break-if-= return } + trace-lower trace var in-ah/esi: (addr handle cell) <- copy _in-ah var in/eax: (addr cell) <- lookup *in-ah { @@ -1603,6 +1604,7 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e debug-print ",", 3/fg, 0/bg evaluate rest-ah, _out-ah, env-h, globals, trace, screen-cell, keyboard-cell, call-number debug-print ",)", 3/fg, 0/bg + trace-higher trace return } # check for unquote-splice in in-left @@ -1661,6 +1663,7 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e # append result of in-right var in-right-ah/ecx: (addr handle cell) <- get in, right evaluate-backquote in-right-ah, out-ah, env-h, globals, trace, screen-cell, keyboard-cell, call-number + trace-higher trace return } debug-print "19", 4/fg, 0/bg @@ -1690,6 +1693,7 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e debug-print "`r(", 3/fg, 0/bg evaluate-backquote in-right-ah, out-right-ah, env-h, globals, trace, screen-cell, keyboard-cell, call-number debug-print "`r)", 3/fg, 0/bg + trace-higher trace } fn test-evaluate-backquote-list { |