src/Provers/classical.ML
changeset 51658 21c10672633b
parent 51584 98029ceda8ce
child 51688 27ecd33d3366
     1.1 --- a/src/Provers/classical.ML	Tue Apr 09 13:55:28 2013 +0200
     1.2 +++ b/src/Provers/classical.ML	Tue Apr 09 15:29:25 2013 +0200
     1.3 @@ -968,9 +968,6 @@
     1.4  
     1.5  val _ =
     1.6    Outer_Syntax.improper_command @{command_spec "print_claset"} "print context of Classical Reasoner"
     1.7 -    (Scan.succeed (Toplevel.no_timing o Toplevel.unknown_context o
     1.8 -      Toplevel.keep (fn state =>
     1.9 -        let val ctxt = Toplevel.context_of state
    1.10 -        in print_claset ctxt end)));
    1.11 +    (Scan.succeed (Toplevel.unknown_context o Toplevel.keep (print_claset o Toplevel.context_of)));
    1.12  
    1.13  end;