fix branch parser eating all list tokens

2020-10-10 12:26:50 +02:00
parent 9aee9ca143
commit aae9db0598
10 changed files with 101 additions and 47 deletions
@@ -16,7 +16,7 @@
        (call draw_box x y)

        (:next)
-        (sleep 500)
+        (uslp 500)
    (j :loop)

    (proc draw_box x y
@@ -0,0 +1,8 @@
+(
+    (ld r0 65)
+    (sym buf r7)
+    (mkbfv buf (r0 66 67 68 '\n'))
+
+    (bfrpop @stdout @buf)
+    (s.nem -1)
+)