diff options
| -rw-r--r-- | caml/CMtypecheck.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/caml/CMtypecheck.ml b/caml/CMtypecheck.ml index dccaadcf..1ac00654 100644 --- a/caml/CMtypecheck.ml +++ b/caml/CMtypecheck.ml @@ -345,6 +345,10 @@ let rec type_stmt env blk ret s = with Error s -> raise (Error (sprintf "In tail call:\n%s" s)) end + | Slabel(lbl, s1) -> + type_stmt env blk ret s1 + | Sgoto lbl -> + () let rec env_of_vars idl = match idl with |