From 48d439d10e7cfd499d96786555c705bd3627a476 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 28 Feb 2021 15:28:17 -0800
Subject: 7824

---
 baremetal/shell/parse.mu | 3 +--
 baremetal/shell/print.mu | 4 ++--
 2 files changed, 3 insertions(+), 4 deletions(-)

(limited to 'baremetal/shell')

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
-- 
cgit 1.4.1-2-gfad0