Make conversion to XNUM error in jtxco1()

juntuu · juntuu · commit 0e095fed3e73 · 2021-03-17T11:44:35.000-07:00
diff --git a/jsrc/conversions.cpp b/jsrc/conversions.cpp
@@ -569,7 +569,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
`@@ -569,7 +569,8 @@ jtcvt0(J jt, array w) -> array {`
`569`	`569`	`auto`
`570`	`570`	`jtxco1(J jt, array w) -> array {`
`571`	`571`	`ASSERT(AT(w) & DENSE, EVNONCE);`
`572`		`- return jtcvt(jt, AT(w) & (B01 + INT + XNUM) ? XNUM : RAT, w);`
	`572`	`+ ASSERT(!(AT(w) & (B01 + INT + XNUM)), EVDOMAIN);`
	`573`	`+ return jtcvt(jt, RAT, w);`
`573`	`574`	`}`
`574`	`575`
`575`	`576`	`auto`