diff options
| author | filliatr | 1999-12-05 18:36:46 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-05 18:36:46 +0000 |
| commit | 6d34b4c933fc4144b5c6503b563ba329fbdd89d0 (patch) | |
| tree | 2dacc8cfe47dc17262d7960b946111988e07cddd /parsing/esyntax.ml | |
| parent | a324a5301e0b6f3e47c38fa2764c2d270843e440 (diff) | |
mise au point lexer / debugage PP
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@205 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/esyntax.ml')
| -rw-r--r-- | parsing/esyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/esyntax.ml b/parsing/esyntax.ml index da7383d63b..71edadb8f0 100644 --- a/parsing/esyntax.ml +++ b/parsing/esyntax.ml @@ -63,7 +63,7 @@ let find_syntax_entry whatfor gt = let gt_keys = ast_keys gt in let entries = List.flatten - (List.map (fun k -> Gmap.find (whatfor,k) !from_key_table) gt_keys) + (List.map (fun k -> Gmapl.find (whatfor,k) !from_key_table) gt_keys) in first_match (fun se -> se.syn_astpat) [] gt entries |