ffi: don't compile struct member type twice.

* ffi.c (ffi_struct_compile): Eliminate redundant call
to ffi_type_compile, replacing it with the compiled type
we already have.

1 files changed, 1 insertions, 1 deletions

diff --git a/ffi.c b/ffi.c
index e7ee8ed4..6e71e743 100644
--- a/ffi.c
+++ b/ffi.c
@@ -1636,7 +1636,7 @@ static val ffi_struct_compile(val membs, val *ptypes, val self)
     if (ctft->size == 0)
       uw_throwf(error_s, lit("~a: incomplete type ~s cannot be struct member"),
                 self, type, nao);
-    pttail = list_collect(pttail, ffi_type_compile(type));
+    pttail = list_collect(pttail, comp_type);
     pstail = list_collect(pstail, name);
   }