haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Utop_lexer: to keep semantic consistent with the ocaml compiler, we now consider a combined double-quote to be a legal mark to start a string

This commit is contained in:
ZAN DoYe 2019-05-13 10:47:00 +08:00
parent 1ae50d3201
commit da0fa23a05
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/uTop_lexer.mll
View File

@ -203,7 +203,7 @@ and cm_string idx= parse
{ {
let uChar= Zed_utf8.unsafe_extract uchar 0 in let uChar= Zed_utf8.unsafe_extract uchar 0 in
if Zed_char.is_combining_mark uChar then if Zed_char.is_combining_mark uChar then
(Error, idx) cm_string idx lexbuf
else else
let idx2, terminated= string (idx + 1) true lexbuf in let idx2, terminated= string (idx + 1) true lexbuf in
(String (1, terminated), idx2) (String (1, terminated), idx2)