# HG changeset patch
# User wenzelm
# Date 1125608895 -7200
# Node ID 398a7353ca6966d9c72b1e1487d3a69a65d34696
# Parent  0687c76021c02dbec2401d336d494df36b90a9b2
curried_lookup/update;

diff -r 0687c76021c0 -r 398a7353ca69 TFL/casesplit.ML
--- 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
diff -r 0687c76021c0 -r 398a7353ca69 TFL/thry.ML
--- a/TFL/thry.ML	Thu Sep 01 22:49:18 2005 +0200
+++ b/TFL/thry.ML	Thu Sep 01 23:08:15 2005 +0200
@@ -59,7 +59,7 @@
  * Get information about datatypes
  *---------------------------------------------------------------------------*)
 
-fun get_info thy ty = Symtab.lookup (DatatypePackage.get_datatypes thy, ty);
+val get_info = Symtab.curried_lookup o DatatypePackage.get_datatypes;
 
 fun match_info thy tname =
   case (DatatypePackage.case_const_of thy tname, DatatypePackage.constrs_of thy tname) of