SF.net SVN: fricas:[2644] trunk

[wheb...@users.sourceforge.net]

Revision: 2644
http://sourceforge.net/p/fricas/code/2644
Author: whebisch
Date: 2020-03-09 12:17:30 +0000 (Mon, 09 Mar 2020)
Log Message:
-----------
Fix output of PAREN

Modified Paths:
--------------
trunk/ChangeLog
trunk/src/algebra/fortout.spad

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2020-03-09 12:09:12 UTC (rev 2643)
+++ trunk/ChangeLog 2020-03-09 12:17:30 UTC (rev 2644)
@@ -1,5 +1,9 @@
2020-03-09 Waldek Hebisch <heb...@math.uni.wroc.pl>

+ * src/algebra/fortout.spad: Fix output of PAREN
+
+2020-03-09 Waldek Hebisch <heb...@math.uni.wroc.pl>
+
* src/algebra/catdef.spad, src/algebra/equation1.spad,
src/algebra/ffcat.spad, src/algebra/matrix.spad,
src/algebra/vector.spad: Remove VectorSpace

Modified: trunk/src/algebra/fortout.spad
===================================================================
--- trunk/src/algebra/fortout.spad 2020-03-09 12:09:12 UTC (rev 2643)
+++ trunk/src/algebra/fortout.spad 2020-03-09 12:17:30 UTC (rev 2644)
@@ -115,6 +115,8 @@
op = "-" and atom?(first(args)) => s
nprec <= prec => [")", :s, "("]
s
+ symbol?(op0) and symbol(op0) = 'PAREN =>
+ [")", :exp2Fort2(first args, -1, op), "("]
exp2FortFn(op, args, nargs)
op = "CMPLX" =>
nargs ~= 2 => error "Bad number of arguments to CMPLX"
@@ -393,7 +395,8 @@
message(concat(["[", string(operator(arg)), :tailPart, "]"]))
op = 'PAREN =>
op1 := operator(args(1))
- not(symbol?(op1) and symbol(op1) = 'CONCATB) => fortPre1(args(1))
+ not(symbol?(op1) and symbol(op1) = 'CONCATB) =>
+ elt('PAREN::O, [fortPre1(args(1))])
-- Have a matrix element
mkMat(arguments(args(1)))
op = 'SUB =>

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.