diff options
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r-- | src/interp/format.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index bbc3e33c..f762c33f 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -577,13 +577,13 @@ linearFormat x == numOfSpadArguments id == char("*") = (s:= PNAME id).0 => - +/[n for i in 1.. while integer? (n:=PARSE_-INTEGER PNAME s.i)] + +/[n for i in 1.. while integer? (n:=readInteger PNAME s.i)] keyedSystemError("S2IF0012",[id]) linearFormatForm(op,argl) == 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]) fnArgs:= indexList.0 > 0 => |