src/Tools/Code/code_printer.ML
changeset 33957 e9afca2118d4
parent 33955 fff6f11b1f09
child 33994 fc8af744f63c
     1.1 --- a/src/Tools/Code/code_printer.ML	Tue Nov 24 17:28:44 2009 +0100
     1.2 +++ b/src/Tools/Code/code_printer.ML	Wed Nov 25 09:13:46 2009 +0100
     1.3 @@ -231,7 +231,7 @@
     1.4     of NONE => brackify fxy (pr_app thm vars app)
     1.5      | SOME (k, pr) =>
     1.6          let
     1.7 -          fun pr' fxy ts = pr (pr_term thm) thm vars fxy (ts ~~ curry (uncurry take) k tys);
     1.8 +          fun pr' fxy ts = pr (pr_term thm) thm vars fxy (ts ~~ take k tys);
     1.9          in if k = length ts
    1.10            then pr' fxy ts
    1.11          else if k < length ts