1.1 --- a/src/HOL/Tools/ATP/atp_translate.ML	Wed Jun 08 17:01:07 2011 +0200
     1.2 +++ b/src/HOL/Tools/ATP/atp_translate.ML	Wed Jun 08 22:13:49 2011 +0200
     1.3 @@ -1,4 +1,4 @@
     1.4 -(*  Title:      HOL/Tools/Sledgehammer/sledgehammer_atp_translate.ML
     1.5 +(*  Title:      HOL/Tools/ATP/atp_translate.ML
     1.6      Author:     Fabian Immler, TU Muenchen
     1.7      Author:     Makarius
     1.8      Author:     Jasmin Blanchette, TU Muenchen
     1.9 @@ -239,7 +239,7 @@
    1.10            (* translation of #" " to #"/" *)
    1.11            un (Char.chr (Char.ord c - upper_a_minus_space) :: rcs) cs
    1.12          else
    1.13 -          let val digits = List.take (c::cs, 3) handle Subscript => [] in
    1.14 +          let val digits = List.take (c::cs, 3) handle General.Subscript => [] in
    1.15              case Int.fromString (String.implode digits) of
    1.16                SOME n => un (Char.chr n :: rcs) (List.drop (cs, 2))
    1.17              | NONE => un (c:: #"_"::rcs) cs (* ERROR *)