Update struct definition macro for conformed args

2021-09-23 12:27:53 -05:00 · 2021-09-23 12:27:53 -05:00 · ebe36e199c
commit ebe36e199c
parent 8ea6c27b38
1 changed files with 1 additions and 3 deletions
--- a/src/clj/coffi/ffi.clj
+++ b/src/clj/coffi/ffi.clj
@ -1166,9 +1166,7 @@
  ;; TODO(Joshua): Support adding padding to the structure (and make it
  ;; extensible?)
  (let [args (s/conform ::defstruct-args args)]
-    `(let [struct-type# [::struct [~@(->> (:fields args)
-                                          (partition 2)
-                                          (map vector))]]]
+    `(let [struct-type# [::struct ~(mapv (juxt :field-name :field-type) (:fields args))]]
       (defmethod c-layout ~(:struct-name args)
         [_type#]
         (c-layout struct-type#))