diff options
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 |