diff options
| author | herbelin | 2001-02-16 15:10:54 +0000 |
|---|---|---|
| committer | herbelin | 2001-02-16 15:10:54 +0000 |
| commit | 57b4083c0bae139d35433d68d5a73f3cefb53635 (patch) | |
| tree | c733cedf09179e27c31cbb8fbc7e0f8baac5ea94 | |
| parent | 44c8ded85ffc7777562cd6fcfbdf34e332461fad (diff) | |
Suppression sp_of_id
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1392 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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" |