diff options
Diffstat (limited to 'src/interp/br-con.boot')
| -rw-r--r-- | src/interp/br-con.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index 3ad5882b..c0cea190 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -393,7 +393,7 @@ dbSearchOrder(conform,domname,$domain) == --domain = nil or set to live domain catpredvec := first u catinfo := second u catvec := third u - catforms := [[pakform,:pred] for i in 0..MAXINDEX catvec | test ] where + catforms := [[pakform,:pred] for i in 0..maxIndex catvec | test ] where test() == pred := simpCatPredicate p:=SUBLISLIS(rest conform,$FormalMapVariableList,kTestPred catpredvec.i) @@ -1309,12 +1309,12 @@ PUT('Enumeration, 'documentation, substitute(MESSAGE, 'MESSAGE, '( mkConArgSublis args == [[arg,:makeSymbol digits2Names PNAME arg] for arg in args - | (s := PNAME arg) and "or"/[digit? s.i for i in 0..MAXINDEX s]] + | (s := PNAME arg) and "or"/[digit? s.i for i in 0..maxIndex s]] digits2Names s == --This is necessary since arguments of conforms CANNOT have digits in TechExplorer str := '"" - for i in 0..MAXINDEX s repeat + for i in 0..maxIndex s repeat c := s.i segment := n := digit? c => |