From f5c2bc3c0849cb9c2698e5430884b6c2914a42ed Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 29 Jun 2017 06:38:59 -0700
Subject: ffi: fix union printing as struct.

* ffi.c (ffi_type_compile): Syntax for union type wrongly
using struct symbol rather than union.
---
 ffi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ffi.c b/ffi.c
index 3f302ef2..a766ead6 100644
--- a/ffi.c
+++ b/ffi.c
@@ -3277,7 +3277,7 @@ val ffi_type_compile(val syntax)
       val sname = if3(name, name, gensym(lit("ffi-union-")));
       val types;
       val slots = ffi_struct_compile(membs, &types, self);
-      val xsyntax = cons(struct_s,
+      val xsyntax = cons(union_s,
                          cons(sname, membs));
       return make_ffi_type_union(xsyntax, union_s, slots, types);
     } else if (sym == array_s || sym == zarray_s) {
-- 
cgit v1.2.3