aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/string.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/string.spad.pamphlet')
-rw-r--r--src/algebra/string.spad.pamphlet3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/algebra/string.spad.pamphlet b/src/algebra/string.spad.pamphlet
index 82b60fb4..54c0a14f 100644
--- a/src/algebra/string.spad.pamphlet
+++ b/src/algebra/string.spad.pamphlet
@@ -101,6 +101,7 @@ Character: OrderedFinite() with
import %ccst: String -> % from Foreign Builtin
import %s2c: String -> % from Foreign Builtin
import %c2s: % -> String from Foreign Builtin
+ import %strconc: (String,String) -> String from Foreign Builtin
a = b == %ceq(a,b)
a < b == %clt(a,b)
@@ -133,7 +134,7 @@ Character: OrderedFinite() with
alphanumeric? c == member?(c, alphanumeric())
latex c ==
- concat("\mbox{`", concat(%c2s c, "'}")$String)$String
+ %strconc("\mbox{`", %strconc(%c2s c, "'}"))
char(s: String) ==
%s2c s