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 2db40214..74c79801 100644
--- a/src/algebra/string.spad.pamphlet
+++ b/src/algebra/string.spad.pamphlet
@@ -89,6 +89,7 @@ Character: OrderedFinite() with
CC ==> CharacterClass()
NNI ==> NonNegativeInteger
import CC
+ import %ccstmax: NonNegativeInteger from Foreign Builtin
import %ceq: (%,%) -> Boolean from Foreign Builtin
import %clt: (%,%) -> Boolean from Foreign Builtin
import %cle: (%,%) -> Boolean from Foreign Builtin
@@ -108,7 +109,7 @@ Character: OrderedFinite() with
a > b == %cgt(a,b)
a <= b == %cle(a,b)
a >= b == %cge(a,b)
- size() == 256
+ size() == %ccstmax
index n == char((n - 1)::NNI)
lookup c == (1 + ord c)::PositiveInteger
char(n: NNI) == %i2c n