Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
curried_lookup/update;
authorwenzelm
Thu, 01 Sep 2005 23:08:15 +0200
changeset 17227 398a7353ca69
parent 17226 0687c76021c0
child 17228 19b460b39dad
curried_lookup/update;
TFL/casesplit.ML file | annotate | diff | comparison | revisions
TFL/thry.ML file | annotate | diff | comparison | revisions 
--- 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
--- 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
isabelle