diff options
Diffstat (limited to 'src/interp/pspad1.boot')
| -rw-r--r-- | src/interp/pspad1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 124a2e46..8ba4e329 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -340,7 +340,7 @@ formatUnion(['Union,:r]) == x is [":",y,'Branch] => fn STRINGIMAGE y string? x => [":", INTERN x, ['Enumeration,x]] x is [":",:.] => x - tag := INTERN strconc("value",STRINGIMAGE ($count := $count + 1)) + tag := INTERN strconc('"value",STRINGIMAGE ($count := $count + 1)) [":", tag, x] formatTestForPartial u == |