Re: [PATCH] Add new print style for repl trace

[Nala Ginrut]

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 <address@hidden> wrote:

On Wed 16 Jan 2013 13:55, Nala Ginrut <address@hidden> 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/