TFL/casesplit.ML
changeset 17412 e26cb20ef0cc
parent 17227 398a7353ca69
child 18050 652c95961a8b
--- a/TFL/casesplit.ML	Thu Sep 15 17:16:55 2005 +0200
+++ b/TFL/casesplit.ML	Thu Sep 15 17:16:56 2005 +0200
@@ -126,7 +126,7 @@
                                             ("Free type: " ^ s)
                    | TVar((s,i),_) => raise ERROR_MESSAGE
                                             ("Free variable: " ^ s)
-      val dt = case Symtab.curried_lookup dtypestab ty_str
+      val dt = case Symtab.lookup dtypestab ty_str
                 of SOME dt => dt
                  | NONE => raise ERROR_MESSAGE ("Not a Datatype: " ^ ty_str)
     in