# HG changeset patch
# User wenzelm
# Date 1361548936 -3600
# Node ID ffd9d7f73e65125c4091f2689532283fad203296
# Parent  a8e664e4fb5f51daad4595089ace0a68bfa63960
make SML/NJ happy;

diff -r a8e664e4fb5f -r ffd9d7f73e65 src/HOL/Tools/ATP/atp_proof_redirect.ML
--- a/src/HOL/Tools/ATP/atp_proof_redirect.ML	Fri Feb 22 17:02:00 2013 +0100
+++ b/src/HOL/Tools/ATP/atp_proof_redirect.ML	Fri Feb 22 17:02:16 2013 +0100
@@ -100,8 +100,8 @@
 fun string_of_sequent (gamma, c) =
   string_of_context gamma ^ " \<turnstile> " ^ Atom.string_of c
 
-val string_of_refute_graph =
-  sequents_of_refute_graph #> map string_of_sequent #> cat_lines
+fun string_of_refute_graph refute_graph =
+  refute_graph |> sequents_of_refute_graph |> map string_of_sequent |> cat_lines
 
 fun redirect_sequent tainted bot (gamma, c) =
   if member atom_eq tainted c then