Add newlines in string.

bakpakin · Sep 20, 2018 · 9f5c280 · 9f5c280
1 parent 9331bba
commit 9f5c280
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/fennel.lua b/fennel.lua
@@ -295,7 +295,8 @@ local function parser(getbyte, filename)
                 until not b or (state == "done")
                 if not b then parseError('unexpected end of source') end
                 local raw = string.char(unpack(chars))
-                local loadFn = loadCode(('return %s'):format(raw), nil, filename)
+                local formatted = raw:gsub("[\1-\31]", function (c) return '\\' .. c:byte() end)
+                local loadFn = loadCode(('return %s'):format(formatted), nil, filename)
                 dispatch(loadFn())
             else -- Try symbol
                 local chars = {}

diff --git a/test.lua b/test.lua
@@ -61,6 +61,7 @@ local cases = {
         ["\"abc\\\"def\""]="abc\"def",
         ["\'abc\\\"\'"]="abc\"",
         ["\"abc\\240\""]="abc\240",
+        ["\"abc\n\\240\""]="abc\n\240",
     },
 
     functions = {