diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
| commit | 0de5ea3df4ffff2d97202a66629e19e0579410ea (patch) | |
| tree | 211b1d1d466c64aac746e9c377acf34adfb1c18b /src/interp/ht-util.boot | |
| parent | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (diff) | |
| download | open-axiom-0de5ea3df4ffff2d97202a66629e19e0579410ea.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/ht-util.boot')
| -rw-r--r-- | src/interp/ht-util.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index 3e443a60..641fedd7 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -565,13 +565,13 @@ $funnyQuote := abstractChar 127 $funnyBacks := abstractChar 128 htEscapeString str == - str := SUBSTITUTE($funnyQuote, char '_", str) - SUBSTITUTE($funnyBacks, char '_\, str) + str := SUBSTITUTE($funnyQuote, char "_"", str) + SUBSTITUTE($funnyBacks, char "\", str) unescapeStringsInForm form == string? form => - str := NSUBSTITUTE(char '_", $funnyQuote, form) - NSUBSTITUTE(char '_\, $funnyBacks, str) + str := NSUBSTITUTE(char "_"", $funnyQuote, form) + NSUBSTITUTE(char "\", $funnyBacks, str) cons? form => unescapeStringsInForm first form unescapeStringsInForm rest form |