# HG changeset patch
# User wenzelm
# Date 898365173 -7200
# Node ID e88cc76cb052c1e221a526c639454b5698876058
# Parent  546d6d62aeab59675f7e62b81395f7723cdf3af7
added fix_mixfix;

diff -r 546d6d62aeab -r e88cc76cb052 src/Pure/Syntax/mixfix.ML
--- a/src/Pure/Syntax/mixfix.ML	Fri Jun 19 11:20:36 1998 +0200
+++ b/src/Pure/Syntax/mixfix.ML	Sat Jun 20 19:52:53 1998 +0200
@@ -25,6 +25,7 @@
   val no_syn: 'a * 'b -> 'a * 'b * mixfix
   val type_name: string -> mixfix -> string
   val const_name: string -> mixfix -> string
+  val fix_mixfix: string -> mixfix -> mixfix
   val mixfix_args: mixfix -> int
   val pure_nonterms: string list
   val pure_syntax: (string * string * mixfix) list
@@ -85,6 +86,10 @@
   | const_name c (Infixr _) = "op " ^ strip_esc c
   | const_name c _ = c;
 
+fun fix_mixfix c (Infixl p) = (InfixlName (c, p))
+  | fix_mixfix c (Infixr p) = (InfixrName (c, p))
+  | fix_mixfix _ mx = mx;
+
 
 (* mixfix_args *)