diff options
Diffstat (limited to 'src/interp/pf2sex.boot')
| -rw-r--r-- | src/interp/pf2sex.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot index 1f8340d0..3ec5b720 100644 --- a/src/interp/pf2sex.boot +++ b/src/interp/pf2sex.boot @@ -183,9 +183,9 @@ pfLiteral2Sex pf == type = 'integer => txt := pfLiteralString pf MULTIPLE_-VALUE_-BIND(part1 pos1, - PARSE_-INTEGER(txt,KEYWORD::JUNK_-ALLOWED,true), + readInteger(txt,KEYWORD::JUNK_-ALLOWED,true), if pos1 = #txt then part1 - else PARSE_-INTEGER(SUBSTRING(txt,pos1+1,nil), + else readInteger(SUBSTRING(txt,pos1+1,nil), KEYWORD::RADIX, part1)) type = 'string or type = 'char => pfLiteralString pf |