diff options
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index fd82de57..e1caca8a 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -586,8 +586,8 @@ numOfSpadArguments id == linearFormatForm(op,argl) == 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]) fnArgs:= indexList.0 > 0 => concat('"(",formatArgList take(-indexList.0,argl),'")") |