diff options
Diffstat (limited to 'ocaml/guestfs_c.c')
| -rw-r--r-- | ocaml/guestfs_c.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c index 80dcf995..f7d8dff8 100644 --- a/ocaml/guestfs_c.c +++ b/ocaml/guestfs_c.c @@ -93,6 +93,17 @@ ocaml_guestfs_raise_error (guestfs_h *g, const char *func) CAMLnoreturn; } +void +ocaml_guestfs_raise_closed (const char *func) +{ + CAMLparam0 (); + CAMLlocal1 (v); + + v = caml_copy_string (func); + caml_raise_with_arg (*caml_named_value ("ocaml_guestfs_closed"), v); + CAMLnoreturn; +} + /* Guestfs.create */ CAMLprim value ocaml_guestfs_create (void) |