You can trigger the error when trying to do ")set output algebra"
in hypertex.
(1) ->
>> System error:
The index 2 is too large for a list of length 0.
- Qian
diff --git a/src/algebra/fortpak.spad b/src/algebra/fortpak.spad
index 7f79a98f..649848cd 100644
--- a/src/algebra/fortpak.spad
+++ b/src/algebra/fortpak.spad
@@ -190,7 +190,7 @@
if empty? fortranOutputStack then
push!(string(fort_out_file), fortranOutputStack)
else if not(top(fortranOutputStack) = string(fort_out_file)) then
- pop!(fort_out_file)
+ pop!(fortranOutputStack)
push!(string(fort_out_file), fortranOutputStack)
push!( fn, fortranOutputStack)
systemCommand concat(["set output fortran quiet ", fn])$String
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index 893b4da8..881d6fb3 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -290,6 +290,7 @@
get_formatted_stream() == get_lisp_stream($formatted_out_rec.$stream_off)
get_out_rec(branch) ==
+ branch = 'algebra => $algebra_out_rec
branch = 'fortran => $fortran_out_rec
branch = 'mathml => $mathml_out_rec
branch = 'texmacs => $texmacs_out_rec
--
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 view this discussion visit
https://groups.google.com/d/msgid/fricas-devel/19282d16-8ed9-4ceb-93a6-74c42832639f%40gmail.com.
