Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17: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;
}
@ -872,7 +869,6 @@ static common_type Cyc_sum_va(int argc, object n, ...) {
va_start(ap, n);
common_type result = Cyc_sum_va_list(argc, n, ap);
va_end(ap);
printf("cyc_sum_va, argc = %d\n", argc);
return result;
}
@ -882,10 +878,6 @@ static void dispatch_sum(int argc, object clo, object cont, object n, ...) {
va_start(ap, n);
common_type result = Cyc_sum_va_list(argc - 1, n, ap);
va_end(ap);
printf("argc = %d, sum result = ", argc);
Cyc_display(&result);
printf("\n");
return_funcall1(cont, &result);
}