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

Issue #101 - Include an extra ; to prevent errors

Browse source 
Include an extra semicolon in the C entry point to prevent it from missing in cases where one is no normally inserted, such as for non-cps primitives or constants. This prevents C compilation errors in edge cases.
This commit is contained in:
Justin Ethier 2016-08-11 23:50:43 -04:00
parent 4d5a1cc076
commit 5dceed4e2d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/cgen.sld
View file

@ -1310,7 +1310,8 @@
(emit "}") (emit "}")
(emit "static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {") (emit "static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {")
; DEBUG (emit (string-append "printf(\"init first lambda\\n\");")) ; DEBUG (emit (string-append "printf(\"init first lambda\\n\");"))
(emit compiled-program))) (emit compiled-program)
(emit ";")))
(else (else
;; Do not use closcall1 macro as it might not have been defined ;; Do not use closcall1 macro as it might not have been defined
(emit "cont = ((closure1_type *)cont)->element;") (emit "cont = ((closure1_type *)cont)->element;")