diff options
Diffstat (limited to 'Lib/ocaml/mlheading.swg')
-rw-r--r-- | Lib/ocaml/mlheading.swg | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lib/ocaml/mlheading.swg b/Lib/ocaml/mlheading.swg index 791aed716..74f486e1c 100644 --- a/Lib/ocaml/mlheading.swg +++ b/Lib/ocaml/mlheading.swg @@ -94,7 +94,8 @@ let disown_object obj = let _ = Callback.register "caml_obj_disown" disown_object let director_get_self obj = match obj with - C_director_core (self,r) -> self + C_obj o -> obj + | C_director_core (self,r) -> self | _ -> raise (Failure "Not a director core object") let _ = Callback.register "caml_director_get_self" director_get_self |