diff options
Diffstat (limited to 'src/interp/pf2sex.boot')
| -rw-r--r-- | src/interp/pf2sex.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot index ecd19406..5d5bc9f8 100644 --- a/src/interp/pf2sex.boot +++ b/src/interp/pf2sex.boot @@ -183,10 +183,9 @@ pfLiteral2Sex pf == type = 'integer => txt := pfLiteralString pf MULTIPLE_-VALUE_-BIND(part1 pos1, - readInteger(txt,KEYWORD::JUNK_-ALLOWED,true), + readInteger(txt,junk_-allowed <- true), if pos1 = #txt then part1 - else readInteger(subString(txt,pos1+1), - KEYWORD::RADIX, part1)) + else readInteger(subString(txt,pos1+1), radix <- part1)) type = 'string or type = 'char => pfLiteralString pf type = 'float => |