From 2535436f1908363992ba232c55635f34d0d9b642 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 21 Feb 2008 17:07:05 -0600 Subject: [PATCH] Friedlier fep sequence printing --- vm/debug.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/vm/debug.c b/vm/debug.c index f15b387377..279d925bd7 100755 --- a/vm/debug.c +++ b/vm/debug.c @@ -37,15 +37,24 @@ void print_array(F_ARRAY* array, CELL nesting) { CELL length = array_capacity(array); CELL i; + bool trimmed; if(length > 10) + { + trimmed = true; length = 10; + } + else + trimmed = false; for(i = 0; i < length; i++) { printf(" "); print_nested_obj(array_nth(array,i),nesting); } + + if(trimmed) + printf("..."); } void print_nested_obj(CELL obj, F_FIXNUM nesting)