src/Pure/Syntax/mixfix.ML
changeset 22826 0f4c501a691e
parent 22709 9ab51bac6287
child 25074 78fdb4c44939
     1.1 --- a/src/Pure/Syntax/mixfix.ML	Mon Apr 30 13:22:35 2007 +0200
     1.2 +++ b/src/Pure/Syntax/mixfix.ML	Mon Apr 30 13:32:58 2007 +0200
     1.3 @@ -105,7 +105,7 @@
     1.4  
     1.5  val strip_esc = implode o strip o Symbol.explode;
     1.6  
     1.7 -fun deprecated c = (warning ("Unnamed infix operator " ^ quote c ^ " -- deprecated"); c);
     1.8 +fun deprecated c = (legacy_feature ("unnamed infix operator " ^ quote c); c);
     1.9  
    1.10  fun type_name t (InfixName _) = t
    1.11    | type_name t (InfixlName _) = t