suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak cify build

Browse Source
This commit is contained in:
Matthew Flatt 2018-11-21 08:37:48 -07:00
parent 6f6d121611
commit 13fa23e79a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/cify/generate.rkt
View File

@ -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