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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-09-21 12:24:54 -04:00
parent 9e082f3c0c
commit cc5f14f63e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cgen.sld
View file

@ -180,7 +180,7 @@
" if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \\\n" " if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \\\n"
" object buf[" n "]; " arry-assign "\\\n" " object buf[" n "]; " arry-assign "\\\n"
" mclosure1(c1, (function_type) _clo_fn, clo); \\\n" " mclosure1(c1, (function_type) _clo_fn, clo); \\\n"
" GC(td, &c1, buf, " n "); \\\n" " GC(td, (closure)(&c1), buf, " n "); \\\n"
" return; \\\n" " return; \\\n"
" } else { \\\n" " } else { \\\n"
" (_fn)(td, " n ", (closure)(clo)" args "); \\\n" " (_fn)(td, " n ", (closure)(clo)" args "); \\\n"
@ -1642,8 +1642,9 @@
params-str params-str
")" ")"
"{" "{"
" object obj = " "\nobject obj = "
(mangle (car (adbf:all-params fnc))) (mangle (car (adbf:all-params fnc)))
";\n"
"__lambda_" "__lambda_"
(number->string (car l)) (number->string (car l))
"(data, argc, obj" "(data, argc, obj"