diff options
| author | herbelin | 2001-02-16 15:58:48 +0000 |
|---|---|---|
| committer | herbelin | 2001-02-16 15:58:48 +0000 |
| commit | 3c248785237d8dea037da274f4acc0229894de93 (patch) | |
| tree | 4501aca5e725d5f62ffd9f959a8956f30bf432eb /parsing/termast.ml | |
| parent | 649e7e98e0067a7ae2a3990b9629dcec66b47497 (diff) | |
ident au lieu de string pour le nom de base de qualid
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1395 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/termast.ml')
| -rw-r--r-- | parsing/termast.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/termast.ml b/parsing/termast.ml index b1a2d18d1f..026e79324a 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -94,7 +94,7 @@ let ast_of_ref = function let ast_of_qualid p = let dir, s = repr_qualid p in - let args = List.map nvar (dir@[s]) in + let args = List.map nvar (dir@[string_of_id s]) in ope ("QUALID", args) (**********************************************************************) @@ -179,7 +179,7 @@ let rec ast_of_raw = function | RVar (_,id) -> let imp = try - let ref = Nametab.locate (make_qualid [] (string_of_id id)) in + let ref = Nametab.locate (make_qualid [] id) in implicits_of_global ref with Not_found -> [] in ast_of_app imp astf astargs |