tuned variable names
authorhaftmann
Sun, 23 Jun 2013 21:16:06 +0200
changeset 52433 ec3a22e62b54
parent 52432 c03090937c3b
child 52434 cbb94074682b
tuned variable names
src/Tools/Code/code_printer.ML
--- a/src/Tools/Code/code_printer.ML	Sun Jun 23 22:31:50 2013 +0200
+++ b/src/Tools/Code/code_printer.ML	Sun Jun 23 21:16:06 2013 +0200
@@ -233,11 +233,11 @@
 
 fun fixity NOBR _ = false
   | fixity _ NOBR = false
-  | fixity (INFX (pr, lr)) (INFX (print_ctxt, lr_ctxt)) =
-      pr < print_ctxt
-      orelse pr = print_ctxt
+  | fixity (INFX (pr, lr)) (INFX (pr_ctxt, lr_ctxt)) =
+      pr < pr_ctxt
+      orelse pr = pr_ctxt
         andalso fixity_lrx lr lr_ctxt
-      orelse print_ctxt = ~1
+      orelse pr_ctxt = ~1
   | fixity BR (INFX _) = false
   | fixity _ _ = true;