|
From: | Nala Ginrut |
Subject: | Re: [PATCH] Add new print style for repl trace |
Date: | Wed, 16 Jan 2013 22:46:29 +0800 |
On Wed 16 Jan 2013 13:55, Nala Ginrut <address@hidden> writes:The patch does print out the number when it abbreviates; wdyt?
> 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.
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/
[Prev in Thread] | Current Thread | [Next in Thread] |