diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1997-03-22 20:27:26 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1997-03-22 20:27:26 +0000 |
| commit | a7dd559a68844c0b56a242c88fe64bf18c878673 (patch) | |
| tree | 8532ef18dda0dd614b7f69aa02813c75f45222eb | |
| parent | 3a0b4b020aa3b6aa840fdd293f5f27b7def4dd8a (diff) | |
Ajout de Obj.obj : t -> 'a.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1440 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | stdlib/obj.ml | 1 | ||||
| -rw-r--r-- | stdlib/obj.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index 1ad65dd61..ec1abeb59 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -16,6 +16,7 @@ type t external repr : 'a -> t = "%identity" +external obj : t -> 'a = "%identity" external magic : 'a -> 'b = "%identity" external is_block : t -> bool = "obj_is_block" external tag : t -> int = "obj_tag" diff --git a/stdlib/obj.mli b/stdlib/obj.mli index 295ea93c3..aee5777ac 100644 --- a/stdlib/obj.mli +++ b/stdlib/obj.mli @@ -18,6 +18,7 @@ type t external repr : 'a -> t = "%identity" +external obj : t -> 'a = "%identity" external magic : 'a -> 'b = "%identity" external is_block : t -> bool = "obj_is_block" external tag : t -> int = "obj_tag" |