From a2a14aec0a4cbb2733161f7efb38585d21d7c31d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 13 May 2020 23:03:19 -0400
Subject: [PATCH] c->scm for strings

---
 libs/cyclone/foreign.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libs/cyclone/foreign.sld b/libs/cyclone/foreign.sld
index cbe2ae47..076129af 100644
--- a/libs/cyclone/foreign.sld
+++ b/libs/cyclone/foreign.sld
@@ -161,10 +161,10 @@
            (let ((var (mangle (gensym 'var))))
            (cons
              (string-append 
-               "make_double(" var ", " ,code ");") TODO: shouldn't this be building a string??
+               "make_utf8_string(data," var ", " ,code ");")
              (string-append "&" var)
            )))
-TODO:
+;TODO:
 ;      /*bytevector_tag */ , "bytevector"
 ;      /*c_opaque_tag  */ , "opaque"
 ;      /*bignum_tag    */ , "bignum"