src/HOL/ex/svc_funcs.ML
changeset 21395 f34ac19659ae
parent 21078 101aefd61aac
child 21820 2f2b6a965ccc
--- a/src/HOL/ex/svc_funcs.ML	Thu Nov 16 01:07:23 2006 +0100
+++ b/src/HOL/ex/svc_funcs.ML	Thu Nov 16 01:07:25 2006 +0100
@@ -73,7 +73,7 @@
                         " " ^ File.shell_path svc_input_file ^
                         ">/dev/null 2>&1"))
       val svc_output =
-        (case Library.try File.read svc_output_file of
+        (case try File.read svc_output_file of
           SOME out => out
         | NONE => error "SVC returned no output");
   in