diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
commit | 0de5ea3df4ffff2d97202a66629e19e0579410ea (patch) | |
tree | 211b1d1d466c64aac746e9c377acf34adfb1c18b /src/interp/format.boot | |
parent | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (diff) | |
download | open-axiom-0de5ea3df4ffff2d97202a66629e19e0579410ea.tar.gz |
cleanup
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 ff7a9781..9fa054d5 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -579,7 +579,7 @@ linearFormat x == [linearFormat y for y in x] numOfSpadArguments id == - char("*") = (s:= PNAME id).0 => + char "*" = (s:= PNAME id).0 => +/[n for i in 1.. while integer? (n:=readInteger PNAME s.i)] keyedSystemError("S2IF0012",[id]) |