diff options
| -rw-r--r-- | contrib/extraction/haskell.ml | 2 | ||||
| -rw-r--r-- | contrib/extraction/ocaml.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/extraction/haskell.ml b/contrib/extraction/haskell.ml index 9c7bb4e6ba..213e758190 100644 --- a/contrib/extraction/haskell.ml +++ b/contrib/extraction/haskell.ml @@ -146,7 +146,7 @@ let rec pp_expr par env args = let ids',env' = push_vars (List.rev (Array.to_list ids)) env in pp_fix par env' (Some i) (Array.of_list (List.rev ids'),defs) args | MLexn s -> - assert (args=[]); + (* An [MLexn] may be applied, but I don't really care *) (open_par par ++ str "error" ++ spc () ++ qs s ++ close_par par) | MLprop -> assert (args=[]); str "prop" diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index 4c55aa35ae..da562ab52e 100644 --- a/contrib/extraction/ocaml.ml +++ b/contrib/extraction/ocaml.ml @@ -244,7 +244,7 @@ let rec pp_expr par env args = let ids',env' = push_vars (List.rev (Array.to_list ids)) env in pp_fix par env' (Some i) (Array.of_list (List.rev ids'),defs) args | MLexn s -> - assert (args=[]); + (* an [MLexn] may be applied, but I don't really care *) (open_par par ++ str "assert false" ++ spc () ++ str ("(* "^s^" *)") ++ close_par par) | MLprop -> |