diff options
| -rw-r--r-- | parsing/search.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/search.ml b/parsing/search.ml index 23905a7dd1..fc2100a6a3 100644 --- a/parsing/search.ml +++ b/parsing/search.ml @@ -132,7 +132,9 @@ let filtered_search filter_function display_function ref = let rec id_from_pattern = function | PRef gr -> gr - | PVar id -> Nametab.sp_of_id CCI id +(* should be appear as a PRef (VarRef sp) !! + | PVar id -> Nametab.locate (make_qualid [] (string_of_id id)) + *) | PApp (p,_) -> id_from_pattern p | _ -> error "the pattern is not simple enough" |