diff options
| author | courtieu | 2006-10-23 07:15:04 +0000 |
|---|---|---|
| committer | courtieu | 2006-10-23 07:15:04 +0000 |
| commit | c3bd434188fcd327999c718b91bfe74ee1afd34f (patch) | |
| tree | 01ca94a2bf209fc951db1fa95b2b665fdf287e58 /interp/notation.ml | |
| parent | b5c3ab50b42bc9004dfa69d3e25a1ea9c5572986 (diff) | |
Add a flush for a warning.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9258 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index c218e5cf3f..3a162ce7ee 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -300,8 +300,8 @@ let declare_notation_interpretation ntn scopt pat df = let scope = match scopt with Some s -> s | None -> default_scope in let sc = find_scope scope in if Gmap.mem ntn sc.notations && Options.is_verbose () then - warning ("Notation "^ntn^" was already used"^ - (if scopt = None then "" else " in scope "^scope)); + msg_warning (str ("Notation "^ntn^" was already used"^ + (if scopt = None then "" else " in scope "^scope))); let sc = { sc with notations = Gmap.add ntn (pat,df) sc.notations } in scope_map := Gmap.add scope sc !scope_map; if scopt = None then scope_stack := SingleNotation ntn :: !scope_stack |