From a65ea6e4a70212b42d25307b06a2c986dce35bc4 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 26 Feb 2021 21:26:09 -0800
Subject: 7808

---
 baremetal/shell/read.mu | 5 +++++
 1 file changed, 5 insertions(+)

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