git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
recipes: Fix git URL.
[libguestfs.git]
/
ocaml
/
guestfs_c.c
diff --git
a/ocaml/guestfs_c.c
b/ocaml/guestfs_c.c
index
80dcf99
..
f7d8dff
100644
(file)
--- 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;
}
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)
/* Guestfs.create */
CAMLprim value
ocaml_guestfs_create (void)