--- a/src/Tools/Metis/metis.ML Sat Aug 18 13:32:25 2007 +0200
+++ b/src/Tools/Metis/metis.ML Sat Aug 18 13:32:26 2007 +0200
@@ -82,7 +82,7 @@
(* Critical section markup (multiprocessing) *)
(* ------------------------------------------------------------------------- *)
-val CRITICAL = CRITICAL;
+fun CRITICAL e = NAMED_CRITICAL "metis" e;
end
--- a/src/Tools/Metis/src/PortableIsabelle.sml Sat Aug 18 13:32:25 2007 +0200
+++ b/src/Tools/Metis/src/PortableIsabelle.sml Sat Aug 18 13:32:26 2007 +0200
@@ -27,7 +27,7 @@
(* Critical section markup (multiprocessing) *)
(* ------------------------------------------------------------------------- *)
-val CRITICAL = CRITICAL;
+fun CRITICAL e = NAMED_CRITICAL "metis" e;
end