diff options
author | dos-reis <gdr@axiomatics.org> | 2011-03-07 05:49:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-03-07 05:49:53 +0000 |
commit | a03b7716749e9fb997d99659967aa49ae6ca1569 (patch) | |
tree | f9ea530df62ac41622e2180077fb4d07aebd7d64 /src/algebra/string.spad.pamphlet | |
parent | 13c00cb56547feb8cd6b5b3c6386a881072862f6 (diff) | |
download | open-axiom-a03b7716749e9fb997d99659967aa49ae6ca1569.tar.gz |
* interp/sys-utility.boot (getSystemModulePath): Use
systemAlgebraDirectory.
* interp/database.boot (pathToDatabase): Use systemDatabaseDirectory.
* algebra/integer.spad.pamphlet (Integer) [latex]: Tidy.
* algebra/string.spad.pamphlet (Character) [latex]: Likewise.
* algebra/Makefile.in: Rework bootstrapping set up.
(COMPILE_LISP): Remove.
(axiom_algebra_layer_strap): Likewise.
(axiom_algebra_layer_strap_objects): Likewise.
(axiom_algebra_bootstrap): Likewise.
(oa_strap_0_fasls): New.
(oa_strap_1_fasls): Likewise.
(oa_strap_2_fasls): Likewise.
(oa_strap_0_sources): Likewise.
(oa_strap_1_sources): Likewise.
(oa_strap_2_sources): Likewise.
* src/algerab/strap: Remove.
Diffstat (limited to 'src/algebra/string.spad.pamphlet')
-rw-r--r-- | src/algebra/string.spad.pamphlet | 3 |
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 |