src/Pure/goal_display.ML
changeset 33957 e9afca2118d4
parent 33955 fff6f11b1f09
child 39050 600de0485859
     1.1 --- a/src/Pure/goal_display.ML	Tue Nov 24 17:28:44 2009 +0100
     1.2 +++ b/src/Pure/goal_display.ML	Wed Nov 25 09:13:46 2009 +0100
     1.3 @@ -99,7 +99,7 @@
     1.4        (if main then [prt_term B] else []) @
     1.5         (if ngoals = 0 then [Pretty.str "No subgoals!"]
     1.6          else if ngoals > maxgoals then
     1.7 -          pretty_subgoals ((uncurry take) (maxgoals, As)) @
     1.8 +          pretty_subgoals (take maxgoals As) @
     1.9            (if total then [Pretty.str ("A total of " ^ string_of_int ngoals ^ " subgoals...")]
    1.10             else [])
    1.11          else pretty_subgoals As) @