diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-07 12:26:39 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-07 12:26:39 +0000 |
commit | d718784d27b5c3c44ca94b6b1b40493b7bcb202e (patch) | |
tree | 2fdba9ad87462680a25a8ccc40beccfbab28f51e /contrib/extraction/haskell.ml | |
parent | 4cc8cc96497f2949e2d3149bce8f7f495af88da9 (diff) |
un assert false de trop (MLexn peut avoir des args)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2458 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/haskell.ml')
-rw-r--r-- | contrib/extraction/haskell.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/haskell.ml b/contrib/extraction/haskell.ml index 9c7bb4e6b..213e75819 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" |