--- a/src/HOL/Tools/ATP/atp_translate.ML Wed Jun 08 15:39:55 2011 +0200
+++ b/src/HOL/Tools/ATP/atp_translate.ML Wed Jun 08 15:56:57 2011 +0200
@@ -239,7 +239,7 @@
(* translation of #" " to #"/" *)
un (Char.chr (Char.ord c - upper_a_minus_space) :: rcs) cs
else
- let val digits = List.take (c::cs, 3) handle Subscript => [] in
+ let val digits = List.take (c::cs, 3) handle General.Subscript => [] in
case Int.fromString (String.implode digits) of
SOME n => un (Char.chr n :: rcs) (List.drop (cs, 2))
| NONE => un (c:: #"_"::rcs) cs (* ERROR *)