Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

c->scm for strings

Browse source
This commit is contained in:
Justin Ethier 2020-05-13 23:03:19 -04:00
parent 12ed7e7813
commit a2a14aec0a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
libs/cyclone/foreign.sld
View file

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