Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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)))) (let ((var (mangle (gensym 'var))))
(cons (cons
(string-append (string-append
"make_double(" var ", " ,code ");") TODO: shouldn't this be building a string?? "make_utf8_string(data," var ", " ,code ");")
(string-append "&" var) (string-append "&" var)
))) )))
TODO: ;TODO:
; /*bytevector_tag */ , "bytevector" ; /*bytevector_tag */ , "bytevector"
; /*c_opaque_tag */ , "opaque" ; /*c_opaque_tag */ , "opaque"
; /*bignum_tag */ , "bignum" ; /*bignum_tag */ , "bignum"