From c9cd66745058bd8892bf3b17a3ffd625e9066212 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sat, 24 Feb 2024 14:36:08 -0500
Subject: Fix some string literal stuff and table default stuff

---
 compile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compile.c b/compile.c
index c0333846..651312c5 100644
--- a/compile.c
+++ b/compile.c
@@ -404,7 +404,7 @@ CORD compile(env_t *env, ast_t *ast)
         CORD literal = Match(ast, StringLiteral)->cord; 
         if (literal == CORD_EMPTY)
             return "(CORD)CORD_EMPTY";
-        CORD code = "\"";
+        CORD code = "(CORD)\"";
         CORD_pos i;
         CORD_FOR(i, literal) {
             char c = CORD_pos_fetch(i);
@@ -510,7 +510,7 @@ CORD compile(env_t *env, ast_t *ast)
             if (table->fallback)
                 code = CORD_all(code, ".fallback=", compile(env, table->fallback),",");
             if (table->default_value)
-                code = CORD_all(code, ".default_value=", compile(env, table->default_value),",");
+                code = CORD_all(code, ".default_value=$heap(", compile(env, table->default_value),"),");
             return CORD_cat(code, "}");
         }
            
-- 
cgit v1.2.3