--- 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 =