TFL/casesplit.ML
changeset 17227 398a7353ca69
parent 16978 e35b518bffc9
child 17412 e26cb20ef0cc
--- a/TFL/casesplit.ML	Thu Sep 01 22:49:18 2005 +0200
+++ b/TFL/casesplit.ML	Thu Sep 01 23:08:15 2005 +0200
@@ -126,7 +126,7 @@
                                             ("Free type: " ^ s)
                    | TVar((s,i),_) => raise ERROR_MESSAGE
                                             ("Free variable: " ^ s)
-      val dt = case (Symtab.lookup (dtypestab,ty_str))
+      val dt = case Symtab.curried_lookup dtypestab ty_str
                 of SOME dt => dt
                  | NONE => raise ERROR_MESSAGE ("Not a Datatype: " ^ ty_str)
     in