diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-21 22:38:38 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-21 22:38:38 +0000 |
| commit | 4da48b01f420d8eccf6dcb2fea11bb4d9f8d8a86 (patch) | |
| tree | 611c3f9b178632a5b610d2031dcc1609d5c58419 /toplevel/metasyntax.ml | |
| parent | cb601622d7478ca2d61a4c186d992d532f141ace (diff) | |
Suppression définitive de lmatch et or_metanum dans tacinterp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4054 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/metasyntax.ml')
| -rw-r--r-- | toplevel/metasyntax.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 43785836a..9be6eb393 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -726,7 +726,7 @@ let add_notation_in_scope local df c (assoc,n,etyps,onlyparse) omodv8 sc toks = if onlyparse then None else let r = interp_rawconstr_gen - false Evd.empty (Global.env()) [] (Some []) (vars,[]) c in + false Evd.empty (Global.env()) [] false (vars,[]) c in Some (make_old_pp_rule ppn ppsymbols pptyps r notation scope vars) in (* Declare the interpretation *) let vars = List.map (fun id -> id,[] (* insert the right scope *)) vars in @@ -802,7 +802,7 @@ let add_notation local df c modifiers mv8 sc = let onlyparse = modifiers = [SetOnlyParsing] in let a = interp_aconstr vars c in let a_for_old = interp_rawconstr_gen - false Evd.empty (Global.env()) [] (Some []) (vars,[]) c in + false Evd.empty (Global.env()) [] false (vars,[]) c in add_notation_interpretation_core local vars symbs df (a,a_for_old) sc onlyparse | Some n -> |