diff options
| author |  bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-11 12:29:53 +0000 |
|---|---|---|
| committer | bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-11 12:29:53 +0000 |
| commit | 95f57bbda1e7ed684568a0fd30d4b8e570a9b37f (patch) | |
| tree | e7041531d8a747da7c4b905efad7d6f40723a6b8 /contrib/interface/name_to_ast.ml | |
| parent | aa3b44033ede838336b6adc08d0e0662552fa90d (diff) | |
removes several warnings in contrib/interface
Modifies the behavior of Recursive definition to produce goals instead of
established theorems
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7843 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/name_to_ast.ml')
| -rw-r--r-- | contrib/interface/name_to_ast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/name_to_ast.ml b/contrib/interface/name_to_ast.ml index 97f2602d8..50c8a0fa1 100644 --- a/contrib/interface/name_to_ast.ml +++ b/contrib/interface/name_to_ast.ml @@ -220,7 +220,7 @@ let name_to_ast ref = | Some c1 -> make_definition_ast name c1 typ []) with Not_found -> try - let sp = Nametab.locate_syntactic_definition qid in + let _sp = Nametab.locate_syntactic_definition qid in errorlabstrm "print" (str "printing of syntax definitions not implemented") with Not_found -> |