aboutsummaryrefslogtreecommitdiffhomepage
path: root/parsing
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2001-01-31 21:45:08 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2001-01-31 21:45:08 +0000
commit1fda9cc1a2d8c2db92d88d3e2715d3ee86f90bf3 (patch)
tree70af27a31074c2bfa9188ce48e09cd565447d11c /parsing
parente595bdc0a43cd057cb403b2e1cac125135780549 (diff)
Bug localisation des Syntactif Definition
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1303 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r--parsing/astterm.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml
index 13f33f977..e78ae3cd3 100644
--- a/parsing/astterm.ml
+++ b/parsing/astterm.ml
@@ -273,7 +273,7 @@ let rawconstr_of_qualid env vars loc qid =
(* Is it a reference to a syntactic definition? *)
try
let sp = Syntax_def.locate_syntactic_definition qid in
- Syntax_def.search_syntactic_definition sp, []
+ set_loc_of_rawconstr loc (Syntax_def.search_syntactic_definition sp), []
with Not_found ->
error_global_not_found_loc loc qid