diff options
Diffstat (limited to 'stdlib/callback.ml')
| -rw-r--r-- | stdlib/callback.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/callback.ml b/stdlib/callback.ml index 5e19cdbdc..91e396553 100644 --- a/stdlib/callback.ml +++ b/stdlib/callback.ml @@ -19,5 +19,5 @@ external register_named_value: string -> Obj.t -> unit = "register_named_value" let register name v = register_named_value name (Obj.repr v) -let register_exception name (exn: exn) = +let register_exception name (exn : exn) = register_named_value name (Obj.field (Obj.repr exn) 0) |