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

Removed debug printf's

Browse source
This commit is contained in:
Justin Ethier 2015-04-15 13:32:40 -04:00
parent abac04c58e
commit 4952129efb
1 changed files with 0 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
runtime.h
View file

@ -861,9 +861,6 @@ static common_type Cyc_sum_va_list(int argc, object n, va_list ns) {
} }
} }
printf("sum = ");
Cyc_display(&sum);
printf("\n");
return sum; return sum;
} }
@ -872,7 +869,6 @@ static common_type Cyc_sum_va(int argc, object n, ...) {
va_start(ap, n); va_start(ap, n);
common_type result = Cyc_sum_va_list(argc, n, ap); common_type result = Cyc_sum_va_list(argc, n, ap);
va_end(ap); va_end(ap);
printf("cyc_sum_va, argc = %d\n", argc);
return result; return result;
} }
@ -882,10 +878,6 @@ static void dispatch_sum(int argc, object clo, object cont, object n, ...) {
va_start(ap, n); va_start(ap, n);
common_type result = Cyc_sum_va_list(argc - 1, n, ap); common_type result = Cyc_sum_va_list(argc - 1, n, ap);
va_end(ap); va_end(ap);
printf("argc = %d, sum result = ", argc);
Cyc_display(&result);
printf("\n");
return_funcall1(cont, &result); return_funcall1(cont, &result);
} }