diff options
| -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" |