--- a/src/Pure/General/object.ML Wed Jun 22 18:26:28 2005 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,42 +0,0 @@
-(* Title: Pure/General/object.ML
- ID: $Id$
- Author: Markus Wenzel, TU Muenchen
-
-Generic objects of arbitrary type -- fool the ML type system via
-exception constructors.
-*)
-
-signature OBJECT =
-sig
- type T
- type kind
- val kind: string -> kind
- val name_of_kind: kind -> string
- val eq_kind: kind * kind -> bool
- val kind_error: kind -> 'a
-end;
-
-structure Object: OBJECT =
-struct
-
-
-(* anytype values *)
-
-type T = exn;
-
-
-(* kinds *)
-
-datatype kind = Kind of string * stamp;
-
-fun kind name = Kind (name, stamp ());
-
-fun name_of_kind (Kind (name, _)) = name;
-
-fun eq_kind (Kind (_, s1), Kind (_, s2)) = s1 = s2;
-
-fun kind_error k =
- error ("## RUNTIME TYPE ERROR ##\nFailed to access " ^ quote (name_of_kind k) ^ " object");
-
-
-end;