I change "concat(a,concat(b,c)$String)$String" to "concat [a,b,c]".
Do such trival changes require a test file?
diff --git a/src/algebra/fraction.spad b/src/algebra/fraction.spad
index 975f4277..8613c7e3 100644
--- a/src/algebra/fraction.spad
+++ b/src/algebra/fraction.spad
@@ -55,9 +55,9 @@
latex(x : %) : String ==
-- one?(xd := x.den) => latex(x.num)
((xd := x.den) = 1) => latex(x.num)
- nl : String := concat("{", concat(latex(x.num), "}")$String)$String
- dl : String := concat("{", concat(latex(x.den), "}")$String)$String
- concat("{ ", concat(nl, concat(" \over ", concat(dl, "
}")$String)$String)$String)$String
+ nl : String := concat ["{", latex(x.num), "}"]
+ dl : String := concat ["{", latex(x.den), "}"]
+ concat ["{ ", nl, " \over ", dl, " }"]
)abbrev domain LA LocalAlgebra
++ Author: Dave Barton, Barry Trager
diff --git a/src/algebra/integer.spad b/src/algebra/integer.spad
index 40dec815..7acf0981 100644
--- a/src/algebra/integer.spad
+++ b/src/algebra/integer.spad
@@ -107,7 +107,7 @@
latex(x : %) : String ==
s : String := string(x pretend Integer)$String
(0 <= (x pretend Integer)) and ((x pretend Integer) < 10) => s
- concat("{", concat(s, "}")$String)$String
+ concat ["{", s, "}"]
positiveRemainder(a, b) ==
negative?(r := a rem b) =>
diff --git a/src/algebra/list.spad b/src/algebra/list.spad
index 163bf914..c31fffbf 100644
--- a/src/algebra/list.spad
+++ b/src/algebra/list.spad
@@ -520,8 +520,7 @@
while not empty?(l) repeat
r : Pair := first l
l := rest l
- s := concat(s, concat(latex r.key, concat(" = ",
- latex r.entry)$String)$String)$String
+ s := concat [s, latex r.key, " = ", latex r.entry]
if not empty?(l) then s := concat(s, ", ")$String
concat(s, " \right]")$String
diff --git a/src/algebra/string.spad b/src/algebra/string.spad
index 137a6f81..a5e53ac1 100644
--- a/src/algebra/string.spad
+++ b/src/algebra/string.spad
@@ -91,7 +91,7 @@
alphanumeric? c == member?(c pretend Character, alphanumeric())
latex c ==
- concat("\mbox{`", concat(new(1,c pretend
Character)$String, "'}")$String)$String
+ concat ["\mbox{`", new(1,c pretend Character)$String, "'}"]
char(s : String) == STR_to_CHAR(s)$Lisp
-- (#s) = 1 => s(minIndex s) pretend %
@@ -280,7 +280,7 @@
upperCase! s == map!(upperCase, s)
lowerCase! s == map!(lowerCase, s)
- latex s == concat("\mbox{``", concat(s pretend
String, "''}"))
+ latex s == concat ["\mbox{``", s pretend String, "''}"]
replace(s, sg, t) ==
l := low(sg) - mn
diff --git a/src/algebra/symbol.spad b/src/algebra/symbol.spad
index 10cd5396..93d5c592 100644
--- a/src/algebra/symbol.spad
+++ b/src/algebra/symbol.spad
@@ -168,7 +168,7 @@
latex e ==
s : String := (PNAME(name e)$Lisp) pretend String
if #s > 1 and s.1 ~= char "\" then
- s := concat("\mbox{\it ", concat(s, "}")$String)$String
+ s := concat ["\mbox{\it ", s, "}"]
not scripted? e => s
ss : Scripts := scripts e
lo : List OutputForm := ss.sub
--
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.
