7808

1 files changed, 5 insertions, 0 deletions

diff --git a/baremetal/shell/read.mu b/baremetal/shell/read.mu
index a1cb95bf..96ea958f 100644
--- a/baremetal/shell/read.mu
+++ b/baremetal/shell/read.mu
@@ -93,6 +93,11 @@ fn next-symbol-token in: (addr gap-buffer), out: (addr stream byte), trace: (add
     loop
   }
   trace-higher trace
+  var stream-storage: (stream byte 0x40)
+  var stream/esi: (addr stream byte) <- address stream-storage
+  write stream, "=> "
+  write-stream stream, out
+  trace trace, "read", stream
 }
 
 fn next-number-token in: (addr gap-buffer), out: (addr stream byte), trace: (addr trace) {