From 471f0d4b5042a0782faac44bc5d4ab0e88db3c77 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 6 Nov 2017 16:00:11 +0000
Subject: [PATCH] UTF8 support

---
 scheme/process-context.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/process-context.sld b/scheme/process-context.sld
index f8ce64f2..e5cfa5c3 100644
--- a/scheme/process-context.sld
+++ b/scheme/process-context.sld
@@ -24,7 +24,7 @@
         for (i = _cyc_argc; i > 0; i--) {
           object ps = alloca(sizeof(string_type));
           object pl = alloca(sizeof(pair_type));
-          make_string(s, _cyc_argv[i - 1]);
+          make_utf8_string(data, s, _cyc_argv[i - 1]);
           memcpy(ps, &s, sizeof(string_type));
           ((list)pl)->hdr.mark = gc_color_red;
           ((list)pl)->hdr.grayed = 0;
@@ -44,7 +44,7 @@
         if (v == NULL) {
           return_closcall1(data, k, boolean_f);
         } else {
-          make_string(str, v);
+          make_utf8_string(data, str, v);
           return_closcall1(data, k, &str);
         }
       ")