From 2ad0a98f94be313e578185acc619764bd7ea9f00 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 29 May 2021 15:53:21 -0700
Subject: .

---
 shell/tokenize.mu | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'shell/tokenize.mu')

diff --git a/shell/tokenize.mu b/shell/tokenize.mu
index e74e549d..bdd02c02 100644
--- a/shell/tokenize.mu
+++ b/shell/tokenize.mu
@@ -233,19 +233,19 @@ fn next-token in: (addr gap-buffer), _out-cell: (addr cell), trace: (addr trace)
   var out-ah/eax: (addr handle stream byte) <- get out-cell, text-data
   var _out/eax: (addr stream byte) <- lookup *out-ah
   var out/edi: (addr stream byte) <- copy _out
+  clear-stream out
+  var g/eax: grapheme <- peek-from-gap-buffer in
+#?   draw-grapheme-at-cursor 0/screen, g, 7/fg, 0/bg
+#?   move-cursor-rightward-and-downward 0/screen, 0, 0x80
+  {
+    var stream-storage: (stream byte 0x40)
+    var stream/esi: (addr stream byte) <- address stream-storage
+    write stream, "next: "
+    var gval/eax: int <- copy g
+    write-int32-hex stream, gval
+    trace trace, "tokenize", stream
+  }
   $next-token:body: {
-    clear-stream out
-    var g/eax: grapheme <- peek-from-gap-buffer in
-#?     draw-grapheme-at-cursor 0/screen, g, 7/fg, 0/bg
-#?     move-cursor-rightward-and-downward 0/screen, 0, 0x80
-    {
-      var stream-storage: (stream byte 0x40)
-      var stream/esi: (addr stream byte) <- address stream-storage
-      write stream, "next: "
-      var gval/eax: int <- copy g
-      write-int32-hex stream, gval
-      trace trace, "tokenize", stream
-    }
     # open square brackets begin streams
     {
       compare g, 0x5b/open-square-bracket
-- 
cgit 1.4.1-2-gfad0