Fix \u Unicode sequences

dmitriid · Jul 24, 2014 · b527e1b · b527e1b
1 parent 2c83595
commit b527e1b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/priv/pegjs_parse.pegjs b/priv/pegjs_parse.pegjs
@@ -497,8 +497,8 @@ hexEscapeSequence
 unicodeEscapeSequence
   = "\\u" digits:(hexDigit+)
   {
-    [_, {_, Digits0}] = Node,
-    Digits = lists:foldl( fun(D, Acc) -> <<Acc/binary, D/binary>> end
+    [_, {_, [Digits0]}] = Node,
+    Digits = lists:foldl( fun([D], Acc) -> <<Acc/binary, D/binary>> end
                         , <<>>, Digits0),
     <<"\\x{", Digits/binary, "}">>
   }

diff --git a/src/pegjs_parse.erl b/src/pegjs_parse.erl
@@ -1059,8 +1059,8 @@ pegjs_code_497_1(Node, _Idx) ->
 -spec pegjs_code_506_1(iolist(), index()) -> parse_result().
 pegjs_code_506_1(Node, _Idx) ->
 
-    [_, {_, Digits0}] = Node,
-    Digits = lists:foldl( fun(D, Acc) -> <<Acc/binary, D/binary>> end
+    [_, {_, [Digits0]}] = Node,
+    Digits = lists:foldl( fun([D], Acc) -> <<Acc/binary, D/binary>> end
                         , <<>>, Digits0),
     <<"\\x{", Digits/binary, "}">>
   .