diff --git a/examples/compile-c/compile.ml b/examples/compile-c/compile.ml
index 8e43948e6f99654c52a63ed674ba2554e7ffe457..151e8b79ec3ca82aecbff533bcf514be2cfb8ff2 100644
--- a/examples/compile-c/compile.ml
+++ b/examples/compile-c/compile.ml
@@ -17,14 +17,3 @@ and compiled c_file =
   target (more_recent [o_file] [c_file]);
   require (file_exists c_file);
   sh "cd $builddir && cc -c %s -o %s" c_file o_file
-
-(* XXX IMPLICIT *)
-let () =
-  try goal_all ()
-  with
-  | Goal_result (Goal_failed msg) ->
-    prerr_endline ("error: " ^ msg);
-    exit 1
-  | exn ->
-    prerr_endline (Printexc.to_string exn);
-    exit 1