aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/string.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-03-06 19:04:54 +0000
committerdos-reis <gdr@axiomatics.org>2011-03-06 19:04:54 +0000
commit4a7b8e70463ca239030c406e89777e209f393c33 (patch)
tree8ee97a418aeba156a813b443be8c3ec8c6a06dd0 /src/algebra/string.spad.pamphlet
parent382517ec42b83bef4bb6effa31b2e8cc70dada5d (diff)
downloadopen-axiom-4a7b8e70463ca239030c406e89777e209f393c33.tar.gz
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include %c2s.
* interp/lisp-backend.boot: Translate it. * algebra/integer.spad.pamphlet (Integer) [convert]: Tidy. [latex]: Likewise. * algebra/string.spad.pamphlet (Character)[latex]: Likewise.
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 b336d9a6..82b60fb4 100644
--- a/src/algebra/string.spad.pamphlet
+++ b/src/algebra/string.spad.pamphlet
@@ -100,6 +100,7 @@ Character: OrderedFinite() with
import %i2c: NNI -> % from Foreign Builtin
import %ccst: String -> % from Foreign Builtin
import %s2c: String -> % from Foreign Builtin
+ import %c2s: % -> String from Foreign Builtin
a = b == %ceq(a,b)
a < b == %clt(a,b)
@@ -132,7 +133,7 @@ Character: OrderedFinite() with
alphanumeric? c == member?(c, alphanumeric())
latex c ==
- concat("\mbox{`", concat(new(1,c)$String, "'}")$String)$String
+ concat("\mbox{`", concat(%c2s c, "'}")$String)$String
char(s: String) ==
%s2c s