changeset 33955 | fff6f11b1f09 |
parent 33519 | e31a85f92ce9 |
child 33957 | e9afca2118d4 |
--- a/src/Pure/variable.ML Tue Nov 24 14:37:23 2009 +0100 +++ b/src/Pure/variable.ML Tue Nov 24 17:28:25 2009 +0100 @@ -345,7 +345,7 @@ val fixes_inner = fixes_of inner; val fixes_outer = fixes_of outer; - val gen_fixes = map #2 (Library.take (length fixes_inner - length fixes_outer, fixes_inner)); + val gen_fixes = map #2 ((uncurry take) (length fixes_inner - length fixes_outer, fixes_inner)); val still_fixed = not o member (op =) gen_fixes; val type_occs_inner = type_occs_of inner;