--- a/Quot/quotient_info.ML Thu Jan 14 23:48:31 2010 +0100
+++ b/Quot/quotient_info.ML Thu Jan 14 23:51:17 2010 +0100
@@ -219,8 +219,7 @@
| SOME l =>
(case (find_first matches l) of
SOME x => x
- | NONE => raise NotFound
- )
+ | NONE => raise NotFound)
end
fun print_qconstinfo ctxt =