Commit 3d75602a authored by Timothy Bourke's avatar Timothy Bourke Committed by Gwenaël Delaval

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

parent 9de1a968
......@@ -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
......
Markdown is supported
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