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 6416f7ef..20c46997 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -747,8 +747,8 @@ mkSuperSub(op,argl) == -- strconc/l s:= PNAME op indexList:= [readInteger PNAME d for i in 1.. while - (digit? (d:= s.(maxIndex:= i)))] - cleanOp:= makeSymbol (strconc/[PNAME s.i for i in maxIndex..MAXINDEX s]) + (digit? (d:= s.(idxmax:= i)))] + cleanOp:= makeSymbol (strconc/[PNAME s.i for i in idxmax..MAXINDEX s]) -- if there is just a subscript use the SUB special form #indexList=2 => subPart:= ['SUB,cleanOp,:take(indexList.1,argl)] |