Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

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

2
libs/cyclone/foreign.sld
View file

@ -161,7 +161,7 @@
(let ((var (mangle (gensym 'var)))) (let ((var (mangle (gensym 'var))))
(cons (cons
(string-append (string-append
"make_double(" var ", " ,code ");") "make_double(" var ", " ,code ");") TODO: shouldn't this be building a string??
(string-append "&" var) (string-append "&" var)
))) )))
TODO: TODO:

1
libs/test-foreign.scm
View file

@ -20,6 +20,7 @@
(test 3 (c-value "1 + 2" integer)) (test 3 (c-value "1 + 2" integer))
(test 4 (c-value "2 + 2" my-integer)) (test 4 (c-value "2 + 2" my-integer))
(test "4" (c-value "2 + 2" my-integer-as-string)) (test "4" (c-value "2 + 2" my-integer-as-string))
(test "test" (c-value "\"test\"" string))
) )
(test-group "foreign code" (test-group "foreign code"