diff options
| author | ppedrot | 2012-12-13 16:00:06 +0000 |
|---|---|---|
| committer | ppedrot | 2012-12-13 16:00:06 +0000 |
| commit | 02077f5b5e132e135be778c201e74a5eb87b97ae (patch) | |
| tree | f98da56fa4cdcd5cb5ea0e1f193c2f84d687feb5 /grammar | |
| parent | 0a7347b567d6ea5d71907b570c81ea6dc61a626d (diff) | |
Using library string functions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16065 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/tacextend.ml4 | 2 | ||||
| -rw-r--r-- | grammar/vernacextend.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4 index 3bbc14038e..f74031687c 100644 --- a/grammar/tacextend.ml4 +++ b/grammar/tacextend.ml4 @@ -205,7 +205,7 @@ EXTEND let t, g = interp_entry_name false None e sep in GramNonTerminal (!@loc, t, g, Some (Names.id_of_string s)) | s = STRING -> - if String.equal s "" then Errors.user_err_loc (!@loc,"",Pp.str "Empty terminal."); + if String.is_empty s then Errors.user_err_loc (!@loc,"",Pp.str "Empty terminal."); GramTerminal s ] ] ; diff --git a/grammar/vernacextend.ml4 b/grammar/vernacextend.ml4 index 321cacbf71..29a59da79f 100644 --- a/grammar/vernacextend.ml4 +++ b/grammar/vernacextend.ml4 @@ -84,7 +84,7 @@ EXTEND rule: [ [ "["; s = STRING; l = LIST0 args; "]"; "->"; "["; e = Pcaml.expr; "]" -> - if String.equal s "" then Errors.user_err_loc (!@loc,"",Pp.str"Command name is empty."); + if String.is_empty s then Errors.user_err_loc (!@loc,"",Pp.str"Command name is empty."); (Some s,l,<:expr< fun () -> $e$ >>) | "[" ; "-" ; l = LIST1 args ; "]" ; "->" ; "[" ; e = Pcaml.expr ; "]" -> (None,l,<:expr< fun () -> $e$ >>) |