diff options
Diffstat (limited to 'src/interp/pspad2.boot')
| -rw-r--r-- | src/interp/pspad2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/pspad2.boot b/src/interp/pspad2.boot index 6f23df70..a3106eab 100644 --- a/src/interp/pspad2.boot +++ b/src/interp/pspad2.boot @@ -450,7 +450,7 @@ formatSEGMENT ["SEGMENT",a,b] == formatSexpr x == atom x => - null x or IDENTP x => consBuffer ident2PrintImage PNAME x + null x or IDENTP x => consBuffer ident2PrintImage symbolName x consBuffer x spill("formatNonAtom",x) @@ -576,7 +576,7 @@ ident2PrintImage s == isIdentifier x == IDENTP x => - s:= PNAME x + s:= symbolName x #s = 0 => nil alphabetic? s.0 => and/[s.i ~= char " " for i in 1..MAXINDEX s] #s>1 => |