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/macroexpand.mu | |
| parent | 837926751a5bc1abe60cb49e8b5243705c6591da (diff) | |
| download | mu-91b7b0be73b88c38e11e21501e813a6b7a048f45.tar.gz | |
shell: clean up trace for macroexpand
Diffstat (limited to 'shell/macroexpand.mu')
| -rw-r--r-- | shell/macroexpand.mu | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/shell/macroexpand.mu b/shell/macroexpand.mu index e7b0b470..70de1091 100644 --- a/shell/macroexpand.mu +++ b/shell/macroexpand.mu @@ -43,6 +43,7 @@ fn macroexpand-iter _expr-ah: (addr handle cell), globals: (addr global-table), trace trace, "mac", stream } # }}} + trace-lower trace # if expr is a non-pair, return var expr/eax: (addr cell) <- lookup *expr-ah { @@ -193,6 +194,7 @@ fn macroexpand-iter _expr-ah: (addr handle cell), globals: (addr global-table), # TODO: check car(macro-definition) is litfn #? turn-on-debug-print apply macro-definition-ah, rest-ah, expr-ah, globals, trace, 0/no-screen, 0/no-keyboard, 0/call-number + trace-higher trace return 1/true } # no macro found; process any macros within args @@ -213,6 +215,7 @@ fn macroexpand-iter _expr-ah: (addr handle cell), globals: (addr global-table), rest-ah <- get rest, right loop } + trace-higher trace return result } |