steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Friedlier fep sequence printing

db4
Slava Pestov 2008-02-21 17:07:05 -06:00
parent ace8a20cba
commit 2535436f19
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
vm/debug.c
View File

@ -37,15 +37,24 @@ void print_array(F_ARRAY* array, CELL nesting)
{ {
CELL length = array_capacity(array); CELL length = array_capacity(array);
CELL i; CELL i;
bool trimmed;
if(length > 10) if(length > 10)
{
trimmed = true;
length = 10; length = 10;
}
else
trimmed = false;
for(i = 0; i < length; i++) for(i = 0; i < length; i++)
{ {
printf(" "); printf(" ");
print_nested_obj(array_nth(array,i),nesting); print_nested_obj(array_nth(array,i),nesting);
} }
if(trimmed)
printf("...");
} }
void print_nested_obj(CELL obj, F_FIXNUM nesting) void print_nested_obj(CELL obj, F_FIXNUM nesting)