--- a/src/Pure/Isar/context_rules.ML Tue Sep 20 14:03:39 2005 +0200
+++ b/src/Pure/Isar/context_rules.ML Tue Sep 20 14:03:40 2005 +0200
@@ -121,7 +121,7 @@
structure GlobalRulesArgs =
struct
- val name = "Isar/rule_context";
+ val name = "Isar/rules";
type T = T;
val empty = make_rules ~1 [] empty_netpairs ([], []);
--- a/src/Pure/ML-Systems/smlnj.ML Tue Sep 20 14:03:39 2005 +0200
+++ b/src/Pure/ML-Systems/smlnj.ML Tue Sep 20 14:03:40 2005 +0200
@@ -63,10 +63,10 @@
fun ml_prompts p1 p2 =
(Compiler.Control.primaryPrompt := p1; Compiler.Control.secondaryPrompt := p2);
-(*dummy impelemtation*)
+(*dummy implementation*)
fun profile (n: int) f x = f x;
-(*dummy impelemtation*)
+(*dummy implementation*)
fun exception_trace f = f ();
(case #version_id (Compiler.version) of
@@ -143,6 +143,7 @@
end;
+
(** Signal handling: emulation of the Poly/ML Signal structure. Note that types
Posix.Signal.signal and Signals.signal differ **)