diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-01 22:39:47 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-01 22:39:47 +0000 |
| commit | 9a60571e2c7a7d42bb3abeeaba59465880b5ef48 (patch) | |
| tree | aaa05828612cc8f99aee39963631b907c5499085 /interp | |
| parent | 73afdfc51fcf5fd98d57d3998a0ce3a666782454 (diff) | |
Renommage Topconstr.map_aconstr_with_binders_loc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4764 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/syntax_def.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml index 4b9c32e4f..802c6d312 100644 --- a/interp/syntax_def.ml +++ b/interp/syntax_def.ml @@ -69,7 +69,7 @@ let declare_syntactic_definition local id onlyparse c = let _ = add_leaf id (in_syntax_constant (local,c,onlyparse)) in () let rec set_loc loc _ a = - map_aconstr_with_binders_loc loc (fun id e -> (id,e)) (set_loc loc) () a + rawconstr_of_aconstr_with_binders loc (fun id e -> (id,e)) (set_loc loc) () a let search_syntactic_definition loc kn = set_loc loc () (KNmap.find kn !syntax_table) |