|
@@ -1122,7 +1122,7 @@ and expr = parser
|
|
|
None
|
|
|
) in
|
|
|
(EIf (cond,e1,e2), punion p (match e2 with None -> pos e1 | Some e -> pos e))
|
|
|
- | [< '(Kwd Return,p); e = popt expr >] -> (EReturn e, match e with None -> p | Some e -> punion p (pos e))
|
|
|
+ | [< '(Kwd Return,p); e = popt toplevel_expr >] -> (EReturn e, match e with None -> p | Some e -> punion p (pos e))
|
|
|
| [< '(Kwd Break,p) >] -> (EBreak,p)
|
|
|
| [< '(Kwd Continue,p) >] -> (EContinue,p)
|
|
|
| [< '(Kwd While,p1); '(POpen,_); cond = expr; '(PClose,_); s >] ->
|