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

Removed debug code

Browse source
This commit is contained in:
Justin Ethier 2015-05-21 01:20:27 -04:00
parent 2ce058bf12
commit 36d0485288
2 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cgen.scm
View file

@ -981,7 +981,7 @@
(emit "static void c_entry_pt(argc, env,cont) int argc; closure env,cont; { ")) (emit "static void c_entry_pt(argc, env,cont) int argc; closure env,cont; { "))
(else (else
(emit (string-append "void c_" (lib:name->string lib-name) "_entry_pt(argc, cont,value) int argc; closure cont; object value;{ ")) (emit (string-append "void c_" (lib:name->string lib-name) "_entry_pt(argc, cont,value) int argc; closure cont; object value;{ "))
(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 ;; Initialize global table
@ -1082,7 +1082,7 @@
(string-append "(" this-clo ".fn)(0, &" this-clo ", &" this-clo ");")) (string-append "(" this-clo ".fn)(0, &" this-clo ", &" this-clo ");"))
(emit "}") (emit "}")
(emit "static void c_entry_pt_first_lambda(int argc, closure cont, object value) {") (emit "static void c_entry_pt_first_lambda(int argc, closure cont, object value) {")
(emit (string-append "printf(\"init first lambda\\n\");")) ; DEBUG (emit (string-append "printf(\"init first lambda\\n\");"))
(emit compiled-program))) (emit compiled-program)))
(else (else
;; Do not use funcall1 macro as it might not have been defined ;; Do not use funcall1 macro as it might not have been defined

6
runtime.c
View file

@ -421,11 +421,7 @@ list assq(x,l) object x; list l;
return boolean_f;} return boolean_f;}
list assoc(x,l) object x; list l; list assoc(x,l) object x; list l;
{ {if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
printf("JAE DEBUG, assoc received: ");
Cyc_display(l);
printf("\n");
if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
for (; !nullp(l); l = cdr(l)) for (; !nullp(l); l = cdr(l))
{register list la = car(l); if (boolean_f != equalp(x,car(la))) return la;} {register list la = car(l); if (boolean_f != equalp(x,car(la))) return la;}
return boolean_f;} return boolean_f;}