summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorn <@>2024-01-19 10:05:40 +0200
committern <@>2024-01-19 10:05:40 +0200
commit94b0ae1f99359b9c873d0a7dd3112396d2d8e9c9 (patch)
tree0efb3033d39462e20be43d7ea1aa1460b650c3b4
parentbe1f991389f314dff809b8ecd9af8d252224ef54 (diff)
(),tbl
-rw-r--r--h.c3
-rw-r--r--t/t.k1
2 files changed, 2 insertions, 2 deletions
diff --git a/h.c b/h.c
index a07bae9e..3e512af5 100644
--- a/h.c
+++ b/h.c
@@ -45,8 +45,7 @@ A2(cat10,
P(xtm&&ytm,a4(x,yx,av,yy))
Xmt(cat10(enl(x),y))
Ymt(psh(x,yR))
- P(xtM||ytM,P(xtT||ytT,x=N(blw(x));y=Nx(blw(yR));cat11(x,y))P(!xtM||!ytM,et(x))P(!mtc_(xx,yx),ed(x))A z=e2f(cat,xy,_R(yy));x(z?aM(_R(xx),z):0))
- Q(0);0)
+ P(xtM||ytM,P(!yN,x)P(!xN,x(yR))P(xtT||ytT,x=N(blw(x));y=Nx(blw(yR));cat11(x,y))P(!xtM||!ytM,et(x))P(!mtc_(xx,yx),ed(x))A z=e2f(cat,xy,_R(yy));x(z?aM(_R(xx),z):0))Q(0);0)
A2(cat11,y(cat10(x,y)))
A2(cat,/*01*/cat11(xR,y))
A2(psh,/*11*/Q(xtMT);U n=xN;P(!n,enl(x(y)))
diff --git a/t/t.k b/t/t.k
index 9498db20..96135cee 100644
--- a/t/t.k
+++ b/t/t.k
@@ -656,6 +656,7 @@ abcde:0;`abcde~*|!.0#` / 1
`I$"-" / 0N
=1,0 / 1 0!(,0;,1)
/a:2#,(!0)!!0;a[1;3]:4;a / ((!0)!!0;(,3)!,4
+(),+`a`b!(0 1;"23") / +`a`b!(0 1;"23")
.[-:;`;`e] / `e
.[+;``;`e] / `e