src/Pure/sorts.ML

--- a/src/Pure/sorts.ML	Thu Sep 15 17:16:55 2005 +0200
+++ b/src/Pure/sorts.ML	Thu Sep 15 17:16:56 2005 +0200
@@ -180,7 +180,7 @@
 fun mg_domain (classes, arities) a S =
   let
     fun dom c =
-      (case AList.lookup (op =) (Symtab.curried_lookup_multi arities a) c of
+      (case AList.lookup (op =) (Symtab.lookup_multi arities a) c of
         NONE => raise DOMAIN (a, c)
       | SOME Ss => Ss);
     fun dom_inter c Ss = ListPair.map (inter_sort classes) (dom c, Ss);