aboutsummaryrefslogtreecommitdiff
path: root/src/interp/bc-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-17 16:55:39 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-17 16:55:39 +0000
commit1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (patch)
tree9ad1840c79408767e5cac07c3c111f67928328f7 /src/interp/bc-util.boot
parentf7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff)
downloadopen-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/bc-util.boot')
-rw-r--r--src/interp/bc-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/bc-util.boot b/src/interp/bc-util.boot
index 6c2531dc..6061e577 100644
--- a/src/interp/bc-util.boot
+++ b/src/interp/bc-util.boot
@@ -93,7 +93,7 @@ bcOptional s ==
bcvspace() == bcHt '"\vspace{1}\newline "
-bcString2WordList s == fn(s,0,MAXINDEX s) where
+bcString2WordList s == fn(s,0,maxIndex s) where
fn(s,i,n) ==
i > n => nil
k := or/[j for j in i..n | s.j ~= char '_ ]