diff options
-rw-r--r-- | shell/parse.mu | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/shell/parse.mu b/shell/parse.mu index f59c5488..54cb650a 100644 --- a/shell/parse.mu +++ b/shell/parse.mu @@ -220,6 +220,11 @@ fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr t var dest/edi: (addr float) <- get out-addr, number-data copy-to *dest, val-float { + { + var should-trace?/eax: boolean <- should-trace? trace + compare should-trace?, 0/false + } + break-if-= var stream-storage: (stream byte 0x400) var stream/ecx: (addr stream byte) <- address stream-storage write stream, "=> number " @@ -251,6 +256,11 @@ fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr t var dest-ah/edx: (addr handle stream byte) <- get out-addr, text-data copy-object curr-token-data-ah, dest-ah { + { + var should-trace?/eax: boolean <- should-trace? trace + compare should-trace?, 0/false + } + break-if-= var stream-storage: (stream byte 0x400) var stream/ecx: (addr stream byte) <- address stream-storage write stream, "=> symbol " |