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

Fix prototypes for define-c functions

Browse source
This commit is contained in:
Justin Ethier 2021-03-07 22:46:58 -05:00
parent 639b9f29ef
commit e840c21648
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -2050,8 +2050,10 @@
(emit* (emit*
"static void __lambda_" "static void __lambda_"
(number->string (car l)) (number->string (car l))
"(void *data, object clo, int argc, object *args) ;"
"/*"
(cadadr l) (cadadr l)
" ;")) "*/"))
((equal? 'precompiled-inline-lambda (caadr l)) ((equal? 'precompiled-inline-lambda (caadr l))
(emit* (emit*
"static object __lambda_" "static object __lambda_"
@ -2068,8 +2070,7 @@
(emit* (emit*
"static void __lambda_" "static void __lambda_"
(number->string (car l)) (number->string (car l))
"(void *data, object clo, int argc, object *args" "(void *data, object clo, int argc, object *args) ;"
") ;"
"/*" "/*"
(cdadr l) (cdadr l)
"*/" "*/"