From 5dceed4e2d7b5e40fa5cacbd4f182cb535bb2dcf Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 11 Aug 2016 23:50:43 -0400 Subject: [PATCH] Issue #101 - Include an extra ; to prevent errors 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. --- scheme/cyclone/cgen.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index a413172d..219ba64d 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -1310,7 +1310,8 @@ (emit "}") (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\");")) - (emit compiled-program))) + (emit compiled-program) + (emit ";"))) (else ;; Do not use closcall1 macro as it might not have been defined (emit "cont = ((closure1_type *)cont)->element;")