# HG changeset patch
# User blanchet
# Date 1380042950 -7200
# Node ID ff09afd47b34d542090b7a62100468b2ae350c3e
# Parent  bde758ba3029bd55f6e09151a3c8817181a90a35
made SML/NJ happy

diff -r bde758ba3029 -r ff09afd47b34 src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML
--- a/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML	Tue Sep 24 19:15:49 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML	Tue Sep 24 19:15:50 2013 +0200
@@ -219,8 +219,7 @@
     fld
   end;
 
-fun massage_direct_corec_call ctxt has_call raw_massage_call U t =
-  massage_let_if ctxt has_call raw_massage_call U t;
+val massage_direct_corec_call = massage_let_if;
 
 fun massage_indirect_corec_call ctxt has_call raw_massage_call bound_Ts U t =
   let
diff -r bde758ba3029 -r ff09afd47b34 src/HOL/Tools/monomorph.ML
--- a/src/HOL/Tools/monomorph.ML	Tue Sep 24 19:15:49 2013 +0200
+++ b/src/HOL/Tools/monomorph.ML	Tue Sep 24 19:15:50 2013 +0200
@@ -290,7 +290,7 @@
 fun size_of_subst subst =
   Vartab.fold (Integer.add o size_of_typ o snd o snd) subst 0
 
-val subst_ord = int_ord o pairself size_of_subst
+fun subst_ord subst = int_ord (pairself size_of_subst subst)
 
 fun instantiated_thms _ _ (Ground thm) = [(0, thm)]
   | instantiated_thms _ _ Ignored = []