From d718784d27b5c3c44ca94b6b1b40493b7bcb202e Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 7 Feb 2002 12:26:39 +0000
Subject: 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
---
 contrib/extraction/haskell.ml | 2 +-
 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 ->
-- 
cgit v1.2.3