Accept "e when not x" for "e whenot x"

7 years ago · 3d75602a0d
parent 9de1a96843
commit 3d75602a0d
1 changed files with 2 additions and 0 deletions
--- a/compiler/heptagon/parsing/hept_parser.mly
+++ b/compiler/heptagon/parsing/hept_parser.mly
@ -550,6 +550,8 @@ _exp:
      { Ewhen (e, Q Initial.ptrue, ce) }
  | e=exp WHENOT ce=IDENT
      { Ewhen (e, Q Initial.pfalse, ce) }
+  | e=exp WHEN NOT ce=IDENT
+      { Ewhen (e, Q Initial.pfalse, ce) }
  | MERGE n=IDENT hs=merge_handlers
      { Emerge (n, hs) }
  | exp INFIX1 exp