From 463d35809b50f7e3b41e569811d5a049fdfd3866 Mon Sep 17 00:00:00 2001
From: Joshua Suskalo <joshua@iris.tv>
Date: Mon, 27 Sep 2021 11:18:53 -0500
Subject: [PATCH] Support type arguments to ::pointer in serialize-into

---
 src/clj/coffi/mem.clj | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/clj/coffi/mem.clj b/src/clj/coffi/mem.clj
index 119a8c3..5f284c2 100644
--- a/src/clj/coffi/mem.clj
+++ b/src/clj/coffi/mem.clj
@@ -389,8 +389,12 @@
   (MemoryAccess/setDouble segment (double obj)))
 
 (defmethod serialize-into ::pointer
-  [obj _type segment _scope]
-  (MemoryAccess/setAddress segment obj))
+  [obj type segment scope]
+  (with-acquired [(segment-scope segment) scope]
+    (MemoryAccess/setAddress
+     segment
+     (cond-> obj
+       (sequential? type) (serialize* type scope)))))
 
 (defn serialize
   "Serializes an arbitrary type.