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/
