From a6ef7dac8b009ad10872919cad80770ce33e5081 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Mon, 13 Feb 2023 22:58:29 -0500
Subject: [PATCH] fix bug for real

---
 term.tal | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/term.tal b/term.tal
index c3e3859..c17aea6 100644
--- a/term.tal
+++ b/term.tal
@@ -419,7 +419,7 @@
 @copy-line ( y* x1* x0* -> y* )
     STH2 STH2 DUP2 find-natural-end    ( y* xend* [x0* x1*] )
     STH2r min                          ( y* xlim=min(xend,x1)* [x0*] )
-    DUP2 STH2kr GTH2 ,&ok              ( y* xlim* [x0*] )
+    DUP2 STH2kr GTH2 ?&ok              ( y* xlim* [x0*] )
     POP2 POP2r JMP2r                   ( y* ; return if line is empty )
     &ok OVR2 .cols LDZ2 MUL2           ( y* xlim* y*cols* [x0*] )
     STH2kr ADD2 #10 SFT2 ;cells ADD2   ( y* xlim* addr* [x0*] )