From 722d077367cb2ec4afc015c3e5760f04bff4903f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 24 Oct 2017 19:01:20 -0400
Subject: [PATCH] WIP

---
 scheme/base.sld | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 1f864709..d3a8ee78 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -976,7 +976,14 @@
           ((string_type *)s)->num_cp = num_cp;
           ((string_type *)s)->str = alloca(sizeof(char) * (len + 1));
         }
-        memset(((string_type *)s)->str, c, len);
+        //if (num_cp == 1) { /* Fast path */
+          memset(((string_type *)s)->str, c, len);
+        //} else {
+        //  int i;
+        //  uint32_t*
+        //  for (i = 0; i < len; i++) {
+        //  }
+        //}
         ((string_type *)s)->str[len] = '\\0';
         return_closcall1(data, k, s);
       ")