From 5c8290d1d50fdda7b69641242aced87eea0c267b Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Fri, 3 Jan 2020 07:44:21 +0000 Subject: [PATCH] lexer: Fix parsing of { characters in CODE sections. --- src/lexer.mll | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/lexer.mll b/src/lexer.mll index fa73312..4a316a0 100644 --- a/src/lexer.mll +++ b/src/lexer.mll @@ -107,7 +107,8 @@ and read_string buf = *) and read_code buf level = parse - | '{' { incr level; read_code buf level lexbuf } + | '{' { Ast.Substs.add_char buf '{'; + incr level; read_code buf level lexbuf } | '}' { decr level; if !level = 0 then CODE (Ast.Substs.get buf) else ( -- 1.8.3.1