Commit 01f946b9 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Cosmetic change.

parent ab901cd9
...@@ -1043,7 +1043,7 @@ let errorbookkeeping e = ...@@ -1043,7 +1043,7 @@ let errorbookkeeping e =
tracecomment tracecomment
"Initiating error handling" "Initiating error handling"
(blet ( (blet (
[ PUnit, ERecordWrite (EVar env, ferror, EVar "true") ], [ PUnit, ERecordWrite (EVar env, ferror, etrue) ],
e e
)) ))
...@@ -1600,7 +1600,7 @@ let discarddef = { ...@@ -1600,7 +1600,7 @@ let discarddef = {
[ EApp (EVar print_token, [ EVar token ]); [ EApp (EVar print_token, [ EVar token ]);
ERecordAccess (ERecordAccess (EVar env, fstartp), "Lexing.pos_cnum"); ERecordAccess (ERecordAccess (EVar env, fstartp), "Lexing.pos_cnum");
ERecordAccess (ERecordAccess (EVar env, fendp), "Lexing.pos_cnum") ] @ [ ERecordAccess (ERecordAccess (EVar env, fendp), "Lexing.pos_cnum") ] @ [
PUnit, ERecordWrite (EVar env, ferror, EVar "false") PUnit, ERecordWrite (EVar env, ferror, efalse)
], ],
EVar token EVar token
) )
...@@ -1634,7 +1634,7 @@ let initenvdef = ...@@ -1634,7 +1634,7 @@ let initenvdef =
(ftoken, EVar token); (ftoken, EVar token);
(fstartp, EVar "Lexing.dummy_pos"); (fstartp, EVar "Lexing.dummy_pos");
(fendp, EVar "Lexing.dummy_pos"); (fendp, EVar "Lexing.dummy_pos");
(ferror, EVar "false") (ferror, efalse)
] ]
) )
) )
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment