Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Tools/Code/code_printer.ML
changeset 33957 e9afca2118d4
parent 33955 fff6f11b1f09
child 33994 fc8af744f63c 
--- a/src/Tools/Code/code_printer.ML	Tue Nov 24 17:28:44 2009 +0100
+++ b/src/Tools/Code/code_printer.ML	Wed Nov 25 09:13:46 2009 +0100
@@ -231,7 +231,7 @@
    of NONE => brackify fxy (pr_app thm vars app)
     | SOME (k, pr) =>
         let
-          fun pr' fxy ts = pr (pr_term thm) thm vars fxy (ts ~~ curry (uncurry take) k tys);
+          fun pr' fxy ts = pr (pr_term thm) thm vars fxy (ts ~~ take k tys);
         in if k = length ts
           then pr' fxy ts
         else if k < length ts
isabelle