diff options
Diffstat (limited to 'src/interp/format.boot')
| -rw-r--r-- | src/interp/format.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index e1caca8a..ff7a9781 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -587,7 +587,7 @@ linearFormatForm(op,argl) == s:= PNAME op indexList:= [readInteger PNAME d for i in 1.. while (digit? (d:= s.(idxmax:= i)))] - cleanOp:= makeSymbol (strconc/[PNAME s.i for i in idxmax..MAXINDEX s]) + cleanOp:= makeSymbol (strconc/[PNAME s.i for i in idxmax..maxIndex s]) fnArgs:= indexList.0 > 0 => concat('"(",formatArgList take(-indexList.0,argl),'")") |