--- a/ex/ROOT.ML Tue Feb 28 10:48:46 1995 +0100
+++ b/ex/ROOT.ML Tue Feb 28 10:52:55 1995 +0100
@@ -3,29 +3,30 @@
Author: Tobias Nipkow, Cambridge University Computer Laboratory
Copyright 1991 University of Cambridge
-Executes all examples for Higher-Order Logic.
+Executes miscellaneous examples for Higher-Order Logic.
*)
HOL_build_completed; (*Cause examples to fail if HOL did*)
-writeln"Root file for HOL examples";
-proof_timing := true;
-loadpath := ["ex"];
-time_use "ex/cla.ML";
-time_use "ex/meson.ML";
-time_use "ex/mesontest.ML";
-time_use_thy "String";
-time_use_thy "InSort";
-time_use_thy "Qsort";
-time_use_thy "LexProd";
-time_use_thy "Puzzle";
-time_use_thy "NatSum";
-time_use "ex/set.ML";
-time_use_thy "SList";
-time_use_thy "LList";
-time_use_thy "Acc";
-time_use_thy "PropLog";
-time_use_thy "Term";
-time_use_thy "Simult";
-time_use_thy "MT";
-maketest "END: Root file for HOL examples";
+(writeln"Root file for HOL examples";
+ proof_timing := true;
+ loadpath := ["ex"];
+ time_use "ex/cla.ML";
+ time_use "ex/meson.ML";
+ time_use "ex/mesontest.ML";
+ time_use_thy "String";
+ time_use_thy "InSort";
+ time_use_thy "Qsort";
+ time_use_thy "LexProd";
+ time_use_thy "Puzzle";
+ time_use_thy "NatSum";
+ time_use "ex/set.ML";
+ time_use_thy "SList";
+ time_use_thy "LList";
+ time_use_thy "Acc";
+ time_use_thy "PropLog";
+ time_use_thy "Term";
+ time_use_thy "Simult";
+ time_use_thy "MT";
+ writeln "END: Root file for HOL examples"
+) handle _ => exit 1;