diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
| commit | 2583edf6b172ea98d700773df5f51761aee01692 (patch) | |
| tree | 8df49363ad97afcdeaca8a2dd0f18eb778849b22 /src/interp/br-saturn.boot | |
| parent | dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f (diff) | |
| download | open-axiom-2583edf6b172ea98d700773df5f51761aee01692.tar.gz | |
Clean symbol vs. character vs. string confusion
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index e0a3bcd4..4b7f17c1 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -1633,7 +1633,7 @@ bcConform1 form == main where -- too, until we fix that. string? form or not isConstructorName form => s := - string? form => strconc("_"",form,"_"") + string? form => strconc('"_"",form,'"_"") STRINGIMAGE form (s.0 = char '_#) => (n := POSN1(form, $FormalFunctionParameterList)) => |