Mercurial Mercurial > hg > nominal2 / 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.
merged
authorChristian Urban <urbanc@in.tum.de>
Wed, 09 Dec 2009 17:31:19 +0100
changeset 671 2b35c7e90294
parent 670 178acdd3a64c (current diff)
parent 669 2ee3bc9899c0 (diff)
child 672 c63685837706
merged
--- a/Quot/quotient_info.ML	Wed Dec 09 17:31:01 2009 +0100
+++ b/Quot/quotient_info.ML	Wed Dec 09 17:31:19 2009 +0100
@@ -65,6 +65,7 @@
   val mapname = Sign.intern_const thy mapstr
   val relname = Sign.intern_const thy relstr
 
+  (* FIXME: if you don't handle the error you also get an error with a similar message: No such constant: "bla" *)
   fun check s = (Const (s, dummyT) |> Syntax.check_term ctxt)
         handle _ => error ("Constant " ^ s ^ " not declared.")
   val _ =  map check [mapname, relname]
nominal2