~ chicken-core (chicken-5) 7d6e701dbc7edbe5beb2f6717f2842ded20b8617


commit 7d6e701dbc7edbe5beb2f6717f2842ded20b8617
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Mar 22 11:20:15 2017 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Mar 22 11:20:15 2017 +0100

    drop comments from generated C code

diff --git a/c-backend.scm b/c-backend.scm
index e2b5fe94..5d484c58 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -520,11 +520,11 @@
 		     (eq? caller-rest-mode 'none)))
 	    (gen #t "C_word av2[" avl "];"))
 	   ((>= caller-argcount avl)   ; Argvec known to be re-usable?
-	    (gen #t "C_word *av2=av; /* Re-use our own argvector */"))
+	    (gen #t "C_word *av2=av;")) ; Re-use our own argvector
 	   (else      ; Need to determine dynamically. This is slower.
 	    (gen #t "C_word *av2;")
 	    (gen #t "if(c >= " avl ") {")
-	    (gen #t "  av2=av; /* Re-use our own argvector */")
+	    (gen #t "  av2=av;") ; Re-use our own argvector
 	    (gen #t "} else {")
 	    (gen #t "  av2=C_alloc(" avl ");")
 	    (gen #t "}")))
Trap