Make conversion to XNUM error in jtxco1()

juntuu · juntuu · commit 4065eaccb47c · 2021-03-08T11:30:24.000+02:00
diff --git a/jsrc/conversions.cpp b/jsrc/conversions.cpp
@@ -571,7 +571,8 @@ jtcvt0(J jt, array w) -> array {
 auto
 jtxco1(J jt, array w) -> array {
     ASSERT(AT(w) & DENSE, EVNONCE);
-    return jtcvt(jt, AT(w) & (B01 + INT + XNUM) ? XNUM : RAT, w);
+    ASSERT(!(AT(w) & (B01 + INT + XNUM)), EVDOMAIN);
+    return jtcvt(jt, RAT, w);
 }
 
 auto

Original file line number	Diff line number	Diff line change
`@@ -571,7 +571,8 @@ jtcvt0(J jt, array w) -> array {`
`571`	`571`	`auto`
`572`	`572`	`jtxco1(J jt, array w) -> array {`
`573`	`573`	`ASSERT(AT(w) & DENSE, EVNONCE);`
`574`		`- return jtcvt(jt, AT(w) & (B01 + INT + XNUM) ? XNUM : RAT, w);`
	`574`	`+ ASSERT(!(AT(w) & (B01 + INT + XNUM)), EVDOMAIN);`
	`575`	`+ return jtcvt(jt, RAT, w);`
`575`	`576`	`}`
`576`	`577`
`577`	`578`	`auto`