about summary refs log tree commit diff stats
path: root/baremetal/shell
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-02-28 15:28:17 -0800
committerKartik K. Agaram <vc@akkartik.com>2021-02-28 15:28:17 -0800
commit48d439d10e7cfd499d96786555c705bd3627a476 (patch)
tree615dd573f7539570a707ccf3724c23ae3d4b7866 /baremetal/shell
parentb89c158e3e2f24cbc6b3f0ebe71d9206e529fcaa (diff)
downloadmu-48d439d10e7cfd499d96786555c705bd3627a476.tar.gz
7824
Diffstat (limited to 'baremetal/shell')
-rw-r--r--baremetal/shell/parse.mu3
-rw-r--r--baremetal/shell/print.mu4
2 files changed, 3 insertions, 4 deletions
diff --git a/baremetal/shell/parse.mu b/baremetal/shell/parse.mu
index c89f8f0d..f2074d3d 100644
--- a/baremetal/shell/parse.mu
+++ b/baremetal/shell/parse.mu
@@ -20,6 +20,7 @@ fn parse-sexpression tokens: (addr stream cell), _out: (addr handle cell), trace
 }
 
 fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr trace) {
+  trace-text trace, "read", "parse atom"
   var curr-token/ecx: (addr cell) <- copy _curr-token
   var curr-token-data-ah/eax: (addr handle stream byte) <- get curr-token, text-data
   var _curr-token-data/eax: (addr stream byte) <- lookup *curr-token-data-ah
@@ -42,7 +43,6 @@ fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr t
     {
       var stream-storage: (stream byte 0x40)
       var stream/ecx: (addr stream byte) <- address stream-storage
-      trace-higher trace
       write stream, "=> number "
       print-number out-addr, stream, 0/no-trace
       trace trace, "read", stream
@@ -60,7 +60,6 @@ fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr t
   {
     var stream-storage: (stream byte 0x40)
     var stream/ecx: (addr stream byte) <- address stream-storage
-    trace-higher trace
     write stream, "=> symbol "
     print-symbol out-addr, stream, 0/no-trace
     trace trace, "read", stream
diff --git a/baremetal/shell/print.mu b/baremetal/shell/print.mu
index 1b188942..d7f24eb2 100644
--- a/baremetal/shell/print.mu
+++ b/baremetal/shell/print.mu
@@ -21,7 +21,7 @@ fn print-symbol _in: (addr cell), out: (addr stream byte), trace: (addr trace) {
   {
     compare trace, 0
     break-if-=
-    trace-text trace, "print", "symbol"
+#?     trace-text trace, "print", "symbol"
   }
   var in/esi: (addr cell) <- copy _in
   var data-ah/eax: (addr handle stream byte) <- get in, text-data
@@ -42,7 +42,7 @@ fn print-number _in: (addr cell), out: (addr stream byte), trace: (addr trace) {
   {
     compare trace, 0
     break-if-=
-    trace-text trace, "print", "number"
+#?     trace-text trace, "print", "number"
   }
   var in/esi: (addr cell) <- copy _in
   var val/eax: (addr float) <- get in, number-data