diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-15 11:20:46 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-15 11:20:46 +0000 |
commit | 790550cadd9690ed1f017359cd7dd935d5946fd8 (patch) | |
tree | 678af5d083f9fe094a4096b3e0435e57e15661c2 /contrib/extraction/ocaml.ml | |
parent | 3f81d0083aec1311095b4bf540c21dbe5156b7ba (diff) |
gros commit: principalement ajout des lambdas arity + leur optimisation en temps normal + beaucoup de simplifications diverses.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2532 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/ocaml.ml')
-rw-r--r-- | contrib/extraction/ocaml.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index 57a198d13..4bd05b03f 100644 --- a/contrib/extraction/ocaml.ml +++ b/contrib/extraction/ocaml.ml @@ -251,13 +251,13 @@ 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 -> - (* an [MLexn] may be applied, but I don't really care *) + (* An [MLexn] may be applied, but I don't really care. *) (open_par par ++ str "assert false" ++ spc () ++ str ("(* "^s^" *)") ++ close_par par) | MLprop -> - assert (args=[]); str "prop" + str "prop" (* An [MLprop] may be applied, but I don't really care. *) | MLarity -> - assert (args=[]); str "arity" + str "arity" (* idem for [MLarity]. *) | MLcast (a,t) -> let tvars = get_tvars t in let _,ren = rename_tvars keywords tvars in |