Sorry, I missed the part that you are using TeX output format.
This is a bug.

This is a patch that fixes this problem.
You can make this patch take effect by

   )read /path/to/patched/i-output.boot

(or compile fricas again with this patch applied)

diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index 976fc7f9..31a2d53e 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -1149,13 +1149,17 @@

 texFormat expr ==
   ioHook("startTeXOutput")
-  tf := '(TexFormat)
-  formatFn :=
-    getFunctionFromDomain("convert",tf,[$OutputForm,$Integer])
-  displayFn := getFunctionFromDomain("display",tf,[tf])
-  SPADCALL(SPADCALL(expr,$IOindex,formatFn),displayFn)
-  TERPRI $texOutputStream
-  FORCE_-OUTPUT $texOutputStream
+  -- If $IOindex is NIL, then don't print 'leqno' (equation number).
+  if NULL $IOindex then
+      texFormat1 expr
+  else
+      tf := '(TexFormat)
+      formatFn :=
+          getFunctionFromDomain("convert",tf,[$OutputForm,$Integer])
+      displayFn := getFunctionFromDomain("display",tf,[tf])
+      SPADCALL(SPADCALL(expr,$IOindex,formatFn),displayFn)
+      TERPRI $texOutputStream
+      FORCE_-OUTPUT $texOutputStream
   ioHook("endOfTeXOutput")
   NIL

-- 
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].
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.

Reply via email to