diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-19 01:32:02 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-19 01:32:02 +0000 |
| commit | 2e8f23c7802e9afb43a0e9846416f93a63a7e592 (patch) | |
| tree | 54ed10f436ca6d1074e391dd80fb5fdd7516fd1c /lib/protocols/Handle.ml | |
| parent | 2e2d7f6a9b116dac2fa20be657c916cb498c1508 (diff) | |
| download | RNT-2e8f23c7802e9afb43a0e9846416f93a63a7e592.tar.gz RNT-2e8f23c7802e9afb43a0e9846416f93a63a7e592.zip | |
Immutable associative collection protocol
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Handle.ml | 2 | ||||
| -rw-r--r-- | lib/protocols/Handle.mli | 1 |
2 files changed, 3 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 diff --git a/lib/protocols/Handle.mli b/lib/protocols/Handle.mli index f63bbea..5640b14 100644 --- a/lib/protocols/Handle.mli +++ b/lib/protocols/Handle.mli @@ -14,6 +14,7 @@ end val make : #obj -> t val into : t -> (protocol -> 'a option) -> 'a interface option +val from : 'a interface -> t val invoke : 'a interface -> ('a -> 'b) -> 'b |