If I set #:width 0, it'll print like the old patch, right? It's nice if there's way to print all as depths, I think it's fine now. ;-)
On Wed, Jan 16, 2013 at 9:19 PM, Andy Wingo <wi...@pobox.com> wrote: > On Wed 16 Jan 2013 13:55, Nala Ginrut <nalagin...@gmail.com> writes: > > > Yes, it's a simpler solution for this, and less codes added. > > But I still worried that folks may need to track the procedure > > call-stack depth for debugging purpose. > > The patch does print out the number when it abbreviates; wdyt? > > Andy > > scheme@(guile-user)> (define (test x) (define (length l) (if (null? l) 0 > (1+ (length (cdr l))))) (length x)) > scheme@(guile-user)> ,trace (test (make-list 20)) #:width 80 > trace: | (#<procedure 2c03180> #(#<directory (guile-user) 2526cf0> #f #f)) > trace: | #(#<directory (guile-user) 2526cf0> test make-list) > trace: (#<procedure 2c0b100 at <current input>:2:0 ()>) > trace: | (make-list 20) > trace: | (() () () () () () () () () () () () () () () () () () () ()) > trace: (test (() () () () () () () () () () () () () () () () () () () ())) > trace: (length (() () () () () () () () () () () () () () () () () () () > ())) > trace: | (length (() () () () () () () () () () () () () () () () () () > ())) > trace: | | (length (() () () () () () () () () () () () () () () () () > ())) > trace: | | | (length (() () () () () () () () () () () () () () () () > ())) > trace: | | | | (length (() () () () () () () () () () () () () () () > ())) > trace: | | | | | (length (() () () () () () () () () () () () () () > ())) > trace: | | | | | | (length (() () () () () () () () () () () () () > ())) > trace: | | | | | | | (length (() () () () () () () () () () () () > ())) > trace: | | | | | | | | (length (() () () () () () () () () () () > ())) > trace: | | | | | | | | | (length (() () () () () () () () () () > ())) > trace: | | | | | | | | | | (length (() () () () () () () () () > ())) > trace: | | | | | | | | | | | (length (() () () () () () () () > ())) > trace: | | | | | | | | | | | | (length (() () () () () () () > ())) > trace: | | | | | | | | | | | | | (length (() () () () () () > ())) > trace: | | | | | | | | | | | | | 14> (length (() () () () () > #)) > trace: | | | | | | | | | | | | | 15> (length (() () () () ())) > trace: | | | | | | | | | | | | | 16> (length (() () () ())) > trace: | | | | | | | | | | | | | 17> (length (() () ())) > trace: | | | | | | | | | | | | | 18> (length (() ())) > trace: | | | | | | | | | | | | | 19> (length (())) > trace: | | | | | | | | | | | | | 20> (length ()) > trace: | | | | | | | | | | | | | 20< 0 > trace: | | | | | | | | | | | | | 19< 1 > trace: | | | | | | | | | | | | | 18< 2 > trace: | | | | | | | | | | | | | 17< 3 > trace: | | | | | | | | | | | | | 16< 4 > trace: | | | | | | | | | | | | | 15< 5 > trace: | | | | | | | | | | | | | 14< 6 > trace: | | | | | | | | | | | | | 7 > trace: | | | | | | | | | | | | 8 > trace: | | | | | | | | | | | 9 > trace: | | | | | | | | | | 10 > trace: | | | | | | | | | 11 > trace: | | | | | | | | 12 > trace: | | | | | | | 13 > trace: | | | | | | 14 > trace: | | | | | 15 > trace: | | | | 16 > trace: | | | 17 > trace: | | 18 > trace: | 19 > trace: 20 > > -- > http://wingolog.org/ >
