From 1621968fc82f17708c1d5b6f5bd65ba2244269a3 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 17 Jun 2024 17:31:50 -0400
Subject: Fix issue with bitfields

---
 compile.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compile.c')

diff --git a/compile.c b/compile.c
index 1a7f4002..59eb4595 100644
--- a/compile.c
+++ b/compile.c
@@ -850,7 +850,7 @@ CORD expr_as_text(env_t *env, CORD expr, type_t *t, CORD color)
 {
     switch (t->tag) {
     case MemoryType: return CORD_asprintf("Memory$as_text(stack(%r), %r, &$Memory)", expr, color);
-    case BoolType: return CORD_asprintf("Bool$as_text(stack(%r), %r, &$Bool)", expr, color);
+    case BoolType: return CORD_asprintf("Bool$as_text((Bool_t[1]){%r}, %r, &$Bool)", expr, color);
     case CStringType: return CORD_asprintf("CString$as_text(stack(%r), %r, &$CString)", expr, color);
     case IntType: {
         CORD name = type_to_cord(t);
-- 
cgit v1.2.3