From e9bbabba8238b092437c4f78930fab616c2a8762 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 29 Jun 2017 05:04:30 -0700
Subject: ffi: fix bool printing as integer type.

* ffi.c (ffi_type_compile): Assign full bool syntax to
cloned type, rather than just the argument syntax denoting the
base type.
---
 ffi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ffi.c')

diff --git a/ffi.c b/ffi.c
index 4a2db26d..3f302ef2 100644
--- a/ffi.c
+++ b/ffi.c
@@ -3559,7 +3559,7 @@ val ffi_type_compile(val syntax)
       if (tft->eltype || tft->memb != 0)
         uw_throwf(error_s, lit("~a: type ~s can't be basis for bool"),
                   self, tft->syntax, nao);
-      tft->syntax = type_syntax;
+      tft->syntax = syntax;
       tft->eltype = type;
       tft->get = ffi_bool_get;
       tft->put = ffi_bool_put;
-- 
cgit v1.2.3