diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index e4dd5b49..e7875ffe 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -734,8 +734,8 @@ mkSuperSub(op,argl) == -- for f in linearFormatForm(op,argl)] -- strconc/l s:= PNAME op - indexList:= [PARSE_-INTEGER PNAME d for i in 1.. while - (DIGITP (d:= s.(maxIndex:= i)))] + indexList:= [readInteger PNAME d for i in 1.. while + (digit? (d:= s.(maxIndex:= i)))] cleanOp:= INTERN (strconc/[PNAME s.i for i in maxIndex..MAXINDEX s]) -- if there is just a subscript use the SUB special form #indexList=2 => |