diff options
| author | glondu | 2009-09-29 15:11:48 +0000 |
|---|---|---|
| committer | glondu | 2009-09-29 15:11:48 +0000 |
| commit | ab2a7b0da8adb0e72f7caa2a34c6edd6685ca4b6 (patch) | |
| tree | 2bd8779bc91b43ce1bdbebc2ef6a00ba84ed5b53 | |
| parent | c555e8464414a42c33235f31c84545a86290eb31 (diff) | |
Remove legacy export_* functions
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12365 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/auto.ml | 3 | ||||
| -rw-r--r-- | tactics/dhyp.ml | 2 | ||||
| -rw-r--r-- | toplevel/metasyntax.ml | 6 |
3 files changed, 0 insertions, 11 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 684f1dde2a..6ecbb09c41 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -449,9 +449,6 @@ let subst_autohint (_,subst,(local,name,hintlist as obj)) = let classify_autohint ((local,name,hintlist) as obj) = if local or hintlist = (AddTactic []) then Dispose else Substitute obj -let export_autohint ((local,name,hintlist) as obj) = - if local then None else Some obj - let (inAutoHint,_) = declare_object {(default_object "AUTOHINT") with cache_function = cache_autohint; diff --git a/tactics/dhyp.ml b/tactics/dhyp.ml index 0d4684e224..07086e05aa 100644 --- a/tactics/dhyp.ml +++ b/tactics/dhyp.ml @@ -207,8 +207,6 @@ let cache_dd (_,(_,na,dd)) = let classify_dd (local,_,_ as o) = if local then Dispose else Substitute o -let export_dd (local,_,_ as x) = if local then None else Some x - let subst_dd (_,subst,(local,na,dd)) = (local,na, { d_pat = subst_located_destructor_pattern subst dd.d_pat; diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 3595d2dfc0..d19a43c8df 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -683,9 +683,6 @@ let subst_syntax_extension (_,subst,(local,sy)) = let classify_syntax_definition (local,_ as o) = if local then Dispose else Substitute o -let export_syntax_definition (local,_ as o) = - if local then None else Some o - let (inSyntaxExtension, outSyntaxExtension) = declare_object {(default_object "SYNTAX-EXTENSION") with open_function = (fun i o -> if i=1 then cache_syntax_extension o); @@ -874,9 +871,6 @@ let subst_notation (_,subst,(lc,scope,pat,b,ndf)) = let classify_notation (local,_,_,_,_ as o) = if local then Dispose else Substitute o -let export_notation (local,_,_,_,_ as o) = - if local then None else Some o - let (inNotation, outNotation) = declare_object {(default_object "NOTATION") with open_function = open_notation; |