From 13fa23e79a1442e843da291835a8e3326336336b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Nov 2018 08:37:48 -0700
Subject: [PATCH] unbreak cify build

---
 racket/src/cify/generate.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/racket/src/cify/generate.rkt b/racket/src/cify/generate.rkt
index e70820add2..d274308c2a 100644
--- a/racket/src/cify/generate.rkt
+++ b/racket/src/cify/generate.rkt
@@ -966,12 +966,12 @@
        (format "scheme_intern_symbol(~s)" (symbol->string e))]
       [(string? e)
        (define s (string->bytes/utf-8 e))
-       (format "scheme_make_sized_utf8_string(~s, ~a)"
-               (bytes->string/latin-1 s)
+       (format "scheme_make_sized_utf8_string(~a, ~a)"
+               (substring (format "~s" s) 1)
                (bytes-length s))]
       [(bytes? e)
-       (format "scheme_make_sized_byte_string(~s, ~a, 0)"
-               (bytes->string/latin-1 e)
+       (format "scheme_make_sized_byte_string(~a, ~a, 0)"
+               (substring (format "~s" e) 1)
                (bytes-length e))]
       [(number? e)
        (cond