(1) -> vconcat([])$OUTFORM
>> System error:
The index 1 is too large.
The problem is that the code doesn't check for this corner case.
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index 044d6041..d4c5047a 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -2034,6 +2034,7 @@
WIDTH u.1 + aggwidth CDDR u
vconcatapp(u, x, y, d) ==
+ null rest u => d
w := vConcatWidth u
y := y + superspan u.1 + 1
for a in rest u repeat
@@ -2058,8 +2059,10 @@
APP('")",x,y,d)
vConcatSub u ==
+ null rest u => 0
subspan u.1 + +/[height a for a in CDDR u]
vConcatSuper u ==
+ null rest u => 0
superspan u.1
vConcatWidth u ==
w := 0
--
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/CAGBJN90Z61eijssqKVGhnZy-4Qo11UYOf5UXg4uFR%2BLU2Az4oA%40mail.gmail.com.
For more options, visit https://groups.google.com/d/optout.
