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/Pure/goal_display.ML
changeset 33955 fff6f11b1f09
parent 32966 5b21661fe618
child 33957 e9afca2118d4 
--- a/src/Pure/goal_display.ML	Tue Nov 24 14:37:23 2009 +0100
+++ b/src/Pure/goal_display.ML	Tue Nov 24 17:28:25 2009 +0100
@@ -99,7 +99,7 @@
       (if main then [prt_term B] else []) @
        (if ngoals = 0 then [Pretty.str "No subgoals!"]
         else if ngoals > maxgoals then
-          pretty_subgoals (Library.take (maxgoals, As)) @
+          pretty_subgoals ((uncurry take) (maxgoals, As)) @
           (if total then [Pretty.str ("A total of " ^ string_of_int ngoals ^ " subgoals...")]
            else [])
         else pretty_subgoals As) @
isabelle