From 913c38b5277747cec13d9c0a971ad25e0396a1ae Mon Sep 17 00:00:00 2001
From: TudbuT <tudbut@tudbut.de>
Date: Thu, 30 Jun 2022 02:20:21 +0200
Subject: [PATCH] bf.isbpl performance visualization

---
 bf.isbpl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bf.isbpl b/bf.isbpl
index 96d17b4..85f0d58 100644
--- a/bf.isbpl
+++ b/bf.isbpl
@@ -21,6 +21,7 @@ func main {
     filename ".isbpl" strconcat STREAM.create.file.out stream
         ! s swap stream.write
           STREAM.close stream
+    "---\n" puts
     "Java" try {
         s Context new eval
     } {
@@ -31,7 +32,7 @@ func main {
 
 func read {
     with s ;
-    [ s STREAM.read stream dup -1 eq if { ] pop "" 2 stop } _char ] _string
+    [ s STREAM.read stream dup -1 eq if { pop pop "" 2 stop } _char ] _string
 }
 
 
@@ -56,8 +57,10 @@ func makeCode {
 
     def c
     while { s read dup =c "" eq not } {
+        c puts
         code " " strconcat ( c parse ) strconcat =code
     }
+    "\n" puts
     code
 }