From d42464b2892cba44bcef23870c4bd3f1522f9215 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Mon, 11 Apr 2022 21:57:45 -0400
Subject: [PATCH] fix bugs

---
 femto.tal | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/femto.tal b/femto.tal
index b6a3047..dd0b90f 100644
--- a/femto.tal
+++ b/femto.tal
@@ -668,7 +668,7 @@
     .prompt/active LDZ ,&is-active JCN
         #01 .prompt/active STZ        ( prompt/active <- 1 )
         .prompt/vector STZ2           ( prompt/vector <- vector )
-        DUP2 ;tmp/data ;str-copy JSR2 ( tmp/data <- default )
+        ;tmp/data ;str-copy JSR2 ( tmp/data <- default )
         ;tmp/data ADD2 .tmp/pos STZ2  ( tmp/pos <- len(default)+data )
         .prompt/string STZ2           ( prompt/string <- prompt )
         JMP2r
@@ -1317,7 +1317,7 @@
 @ansi-emit ( 00 cn ... c1 c0 -> )
     LITr 18 ( Console/write )
     #5b1b STHkr DEO STHkr DEO ( ESC [ )
-    &loop LDA DUP ,&next JCN POP POPr JMP2r
+    &loop DUP ,&next JCN POP POPr JMP2r
     &next STHkr DEO ,&loop JMP
 
 ( ESC [ 3 1 m )