# HG changeset patch
# User haftmann
# Date 1139387240 -3600
# Node ID 4efb82669880c8d709063cedf693cdfac28f1464
# Parent  78d650a7e99a69f9d2d46695d322030b8fd128ee
fixed the most silly bug conceivable in map_atyps

diff -r 78d650a7e99a -r 4efb82669880 src/Pure/term.ML
--- a/src/Pure/term.ML	Tue Feb 07 19:57:00 2006 +0100
+++ b/src/Pure/term.ML	Wed Feb 08 09:27:20 2006 +0100
@@ -442,7 +442,7 @@
   in add_size (tm, 0) end;
 
 fun map_atyps f (Type (a, Ts)) = Type (a, map (map_atyps f) Ts)
-  | map_atyps f T = T;
+  | map_atyps f T = f T;
 
 fun map_aterms f (t $ u) = map_aterms f t $ map_aterms f u
   | map_aterms f (Abs (a, T, t)) = Abs (a, T, map_aterms f t)