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

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2016-04-01 22:01:10 -04:00
parent a63f9a729e
commit 1598a72921
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/cgen.sld
View file

@ -123,8 +123,8 @@
(arry-assign (c-macro-array-assign num-args "buf" "a"))) (arry-assign (c-macro-array-assign num-args "buf" "a")))
(string-append (string-append
;"/* Check for GC, then call given continuation closure */\n" ;"/* Check for GC, then call given continuation closure */\n"
"#define return_closcall" n "(td, clo" args ") \\\n" "#define return_closcall" n "(td, clo" args ") { \\\n"
"{char top; \\\n" " char top; \\\n"
" 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"
" GC(td,clo,buf," n "); return; \\\n" " GC(td,clo,buf," n "); return; \\\n"