fixed the most silly bug conceivable in map_atyps
authorhaftmann
Wed Feb 08 09:27:20 2006 +0100 (2006-02-08)
changeset 189764efb82669880
parent 18975 78d650a7e99a
child 18977 f24c416a4814
fixed the most silly bug conceivable in map_atyps
src/Pure/term.ML
     1.1 --- a/src/Pure/term.ML	Tue Feb 07 19:57:00 2006 +0100
     1.2 +++ b/src/Pure/term.ML	Wed Feb 08 09:27:20 2006 +0100
     1.3 @@ -442,7 +442,7 @@
     1.4    in add_size (tm, 0) end;
     1.5  
     1.6  fun map_atyps f (Type (a, Ts)) = Type (a, map (map_atyps f) Ts)
     1.7 -  | map_atyps f T = T;
     1.8 +  | map_atyps f T = f T;
     1.9  
    1.10  fun map_aterms f (t $ u) = map_aterms f t $ map_aterms f u
    1.11    | map_aterms f (Abs (a, T, t)) = Abs (a, T, map_aterms f t)