diff options
Diffstat (limited to 'src/interp/pspad1.boot')
-rw-r--r-- | src/interp/pspad1.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 40fe464f..2adbd906 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -338,9 +338,9 @@ formatUnion(['Union,:r]) == $count : local := 0 formatFormNoColonDecl formatTestForPartial ['Union,:[fn x for x in r]] where fn x == x is [":",y,'Branch] => fn STRINGIMAGE y - string? x => [":", INTERN x, ['Enumeration,x]] + string? x => [":", makeSymbol x, ['Enumeration,x]] x is [":",:.] => x - tag := INTERN strconc('"value",STRINGIMAGE ($count := $count + 1)) + tag := makeSymbol strconc('"value",STRINGIMAGE ($count := $count + 1)) [":", tag, x] formatTestForPartial u == @@ -349,7 +349,7 @@ formatTestForPartial u == u formatEnumeration(y is ['Enumeration,:r]) == - r is [x] => format "'" and format INTERN STRINGIMAGE x and format "'" + r is [x] => format "'" and format makeSymbol STRINGIMAGE x and format "'" formatForm y formatRecord(u) == formatFormNoColonDecl u |