diff options
| author | bertot | 2006-01-11 16:36:14 +0000 |
|---|---|---|
| committer | bertot | 2006-01-11 16:36:14 +0000 |
| commit | bd2ec17a7948da7dff830b4411dbf823534a790c (patch) | |
| tree | e355c175b91fa76fad53510e29e17bdcdc618bf3 /contrib/interface/line_parser.ml4 | |
| parent | 95f57bbda1e7ed684568a0fd30d4b8e570a9b37f (diff) | |
remove warnings that were left in the directory contrib/interface
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7844 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/line_parser.ml4')
| -rwxr-xr-x | contrib/interface/line_parser.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/interface/line_parser.ml4 b/contrib/interface/line_parser.ml4 index b566935123..0b13a092a4 100755 --- a/contrib/interface/line_parser.ml4 +++ b/contrib/interface/line_parser.ml4 @@ -84,7 +84,7 @@ let rec string len = parser spaces and tabulations are ignored, identifiers, integers, strings, opening and closing square brackets. Lexical errors are ignored ! *) -let rec next_token = parser count +let rec next_token = parser _count [< '' ' | '\t'; tok = next_token >] -> tok | [< ''_' | 'a'..'z' | 'A'..'Z' as c;i = (ident (add_in_buff 0 c))>] -> i | [< ''0'..'9' as c ; i = (parse_int (get_digit c))>] -> i @@ -96,7 +96,7 @@ let rec next_token = parser count (* A very simple lexical analyser to recognize a integer value behind blank characters *) -let rec next_int = parser count +let rec next_int = parser _count [< '' ' | '\t'; v = next_int >] -> v | [< ''0'..'9' as c; i = (parse_int (get_digit c))>] -> (match i with |