diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
| commit | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (patch) | |
| tree | 9ad1840c79408767e5cac07c3c111f67928328f7 /src/interp/g-util.boot | |
| parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
| download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz | |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 6e5da354..90e10318 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -766,7 +766,7 @@ trimString s == leftTrim rightTrim s leftTrim s == - k := MAXINDEX s + k := maxIndex s k < 0 => s s.0 = $blank => for i in 0..k while s.i = $blank repeat (j := i) @@ -774,7 +774,7 @@ leftTrim s == s rightTrim s == -- assumed a non-empty string - k := MAXINDEX s + k := maxIndex s k < 0 => s s.k = $blank => for i in k..0 by -1 while s.i = $blank repeat (j := i) @@ -873,7 +873,7 @@ $beginEndList := '( isDefaultPackageName x == s := symbolName x - stringChar(s,MAXINDEX s) = char '_& + stringChar(s,maxIndex s) = char '_& isDefaultPackageForm? x == x is [op,:.] and IDENTP op and isDefaultPackageName op |