1 files changed, 6 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 8eaa81bf..96b18000 100644
--- a/lib.c
+++ b/lib.c
@@ -7361,6 +7361,12 @@ mem_t *cptr_get(val cptr)
   return cobj_handle(cptr, cptr_s);
 }
 
+mem_t **cptr_addr_of(val cptr)
+{
+  (void) cobj_handle(cptr, cptr_s);
+  return &cptr->co.handle;
+}
+
 val assoc(val key, val list)
 {
   list = nullify(list);