# HG changeset patch
# User Cezary Kaliszyk <kaliszyk@in.tum.de>
# Date 1260375399 -3600
# Node ID 2ee3bc9899c076236e1e579319fe85ddce3c6417
# Parent  ef5b941f00e25fff8890d63f4b3374365ed0f72c
Exception handling.

diff -r ef5b941f00e2 -r 2ee3bc9899c0 Quot/quotient_info.ML
--- a/Quot/quotient_info.ML	Wed Dec 09 17:05:33 2009 +0100
+++ b/Quot/quotient_info.ML	Wed Dec 09 17:16:39 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]