diff options
Diffstat (limited to 'src/interp/ht-util.boot')
| -rw-r--r-- | src/interp/ht-util.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index 0c97430f..9c35fab5 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -570,8 +570,9 @@ htEscapeString str == unescapeStringsInForm form == string? form => - str := NSUBSTITUTE(char "_"", $funnyQuote, form) - NSUBSTITUTE(char "\", $funnyBacks, str) + for i in 0..maxIndex form repeat + stringChar(form,i) = $funnyQuote => stringChar(form,i) := char "_"" + stringChar(form,i) = $funnyBacks => stringChar(form,i) := char "\" cons? form => unescapeStringsInForm first form unescapeStringsInForm rest form |