diff options
Diffstat (limited to 'src/boot/fe/item.ml')
| -rw-r--r-- | src/boot/fe/item.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/boot/fe/item.ml b/src/boot/fe/item.ml index 3d3bf84f..c1746cc2 100644 --- a/src/boot/fe/item.ml +++ b/src/boot/fe/item.ml @@ -188,7 +188,14 @@ and parse_stmts_including_none (ps:pstate) : Ast.stmt array = let (stmts, atom) = ctxt "stmts: log value" parse_expr_atom ps in expect ps SEMI; spans ps stmts apos (Ast.STMT_log atom) - + | BREAK -> + bump ps; + expect ps SEMI; + [| span ps apos (lexpos ps) Ast.STMT_break |] + | CONT -> + bump ps; + expect ps SEMI; + [| span ps apos (lexpos ps) Ast.STMT_cont |] | CHECK -> bump ps; begin |