# HG changeset patch
# User wenzelm
# Date 1268573816 -3600
# Node ID a2b163256f9b0aa569f0a4fd7dbbf0c52c0ed9f6
# Parent  f1deaca15ca36e67788339706554b2313083f908
tuned comment;

diff -r f1deaca15ca3 -r a2b163256f9b src/HOL/Tools/Quotient/quotient_tacs.ML
--- a/src/HOL/Tools/Quotient/quotient_tacs.ML	Sun Mar 14 14:31:24 2010 +0100
+++ b/src/HOL/Tools/Quotient/quotient_tacs.ML	Sun Mar 14 14:36:56 2010 +0100
@@ -89,7 +89,7 @@
 fun get_match_inst thy pat trm =
 let
   val univ = Unify.matchers thy [(pat, trm)]
-  val SOME (env, _) = Seq.pull univ             (* raises BIND, if no unifier *)
+  val SOME (env, _) = Seq.pull univ           (* raises Bind, if no unifier *)  (* FIXME fragile *)
   val tenv = Vartab.dest (Envir.term_env env)
   val tyenv = Vartab.dest (Envir.type_env env)
 in