Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix to cyc_display

Browse source 
Print ellipsis with a lambda received from interpreter, as an inidication there is more that is not being displayed
This commit is contained in:
Justin Ethier 2015-03-03 13:33:39 -05:00
parent 13a0a368ad
commit 917c6c00b3
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
runtime.h
View file

@ -575,7 +575,7 @@ static object Cyc_display(x) object x;
if (equal(quote_Cyc_191procedure, car(x))) {
printf(" ");
Cyc_display(cadr(x));
printf(")");
printf(" ...)"); /* skip body and env for now */
break;
}
@ -1447,9 +1447,9 @@ static void dispatch_va(int argc, function_type_va func, object clo, object cont
static object apply(object cont, object func, object args){
common_type buf;
printf("DEBUG apply: ");
Cyc_display(args);
printf("\n");
//printf("DEBUG apply: ");
//Cyc_display(args);
//printf("\n");
if (!is_object_type(func)) {
printf("Call of non-procedure: ");
Cyc_display(func);
@ -1486,11 +1486,13 @@ printf("\n");
case cons_tag:
if (!nullp(func) && eq(quote_Cyc_191procedure, car(func))) {
make_cons(c, func, args);
/*
printf("DEBUG apply cons: ");
Cyc_display(&c);
printf("\n");
//printf("TODO: apply compound proc\n");
//exit(1);
*/
((closure)__glo_eval)->fn(3, __glo_eval, cont, &c, nil);
} else {
printf("Unable to evaluate list\n");