diff options
Diffstat (limited to 'lib/protocols/Handle.ml')
| -rw-r--r-- | lib/protocols/Handle.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml index 313a3d4..cb78cf2 100644 --- a/lib/protocols/Handle.ml +++ b/lib/protocols/Handle.ml @@ -36,6 +36,8 @@ let invoke { handle; interface } f = let _ = object_of handle in f interface +let from { handle; _ } = handle + let copy handle = let o = object_of handle in if o#reference then |