From 1eb8a22995534ca4639a9c2dcbe886fd2bd5b9bd Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 18 May 2015 22:38:48 -0400 Subject: [PATCH] Set Cyc_global_variables correctly in lib2 --- cgen.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/cgen.scm b/cgen.scm index 68a087fb..f5d62e80 100644 --- a/cgen.scm +++ b/cgen.scm @@ -977,7 +977,7 @@ (emit "static void c_entry_pt(argc, env,cont) int argc; closure env,cont; { ")) (else (emit (string-append "void c_" (lib:name->string lib-name) "_entry_pt(argc, env,cont) int argc; closure env,cont; { ")) - (emit (string-append "printf(\"init " (lib:name->string lib-name) "\\n\");")) + ;DEBUG: (emit (string-append "printf(\"init " (lib:name->string lib-name) "\\n\");")) )) ;; Initialize global table @@ -1038,6 +1038,8 @@ (emits str)) code)) ((null? (cdr ps)) + (if (not head-pair) + (set! head-pair (car cs))) (loop (cons (string-append "make_cons(" (car cs) ", &" (car ps) ",Cyc_global_variables);\n") code) (cdr ps) (cdr cs))) @@ -1048,7 +1050,7 @@ (cdr ps) (cdr cs))))) (if head-pair - (emits + (emit (string-append "Cyc_global_variables = &" head-pair ";")))) (cond @@ -1076,7 +1078,7 @@ (string-append "(" this-clo ".fn)(0, &" this-clo ", &" this-clo ");")) (emit "}") (emit "static void c_entry_pt_first_lambda(int argc, closure env, closure cont) {") - (emit (string-append "printf(\"init first lambda\\n\");")) + ;DEBUG: (emit (string-append "printf(\"init first lambda\\n\");")) (emit compiled-program))) (else ;; Do not use funcall1 macro as it might not have been defined