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