src/HOL/Tools/record.ML
changeset 35131 7e24282f2dd7
parent 35021 c839a4c670c6
child 35133 a68e4972fd31
     1.1 --- a/src/HOL/Tools/record.ML	Mon Feb 15 18:03:42 2010 +0100
     1.2 +++ b/src/HOL/Tools/record.ML	Mon Feb 15 18:50:16 2010 +0100
     1.3 @@ -674,7 +674,7 @@
     1.4  
     1.5  
     1.6  fun record_update_tr [t, u] =
     1.7 -      Library.foldr (op $) (rev (gen_fields_tr "_updates" "_update" updateN u), t)
     1.8 +      fold (curry op $) (gen_fields_tr "_updates" "_update" updateN u) t
     1.9    | record_update_tr ts = raise TERM ("record_update_tr", ts);
    1.10  
    1.11  fun update_name_tr (Free (x, T) :: ts) = Free (suffix updateN x, T) $$ ts