diff options
Diffstat (limited to 'src/interp/category.boot')
| -rw-r--r-- | src/interp/category.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot index 26a55326..46f0b7ea 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -76,7 +76,7 @@ CategoryPrint(D,$e) == SAY("This has an alternate view: slot ",rest u," corresponds to ",first u) for u in third D.4 repeat SAY("This has a local domain: slot ",rest u," corresponds to ",first u) - for j in 6..MAXINDEX D repeat + for j in 6..maxIndex D repeat u:= D.j null u => SAY "another domain" atom first u => SAY("Alternate View corresponding to: ",u) |