Okay, so I almost think I have a solution to this.
Can I have something like "trace", where instead of printing the argument line, it passes it to a function?
Like a function uber-trace
where:
(trace foo) = (uber-trace foo (lambda (args) (pp args)))
On Fri, Feb 20, 2009 at 8:04 PM, lowly coder lowlycoder@huoyanjinjing.comwrote:
Code:
~/code/irc$ cat trace.scm (define (foo x) x)
(define (bar) (foo 0))
(define (test) (foo 1) (bar))
(trace foo)
(test) ~/code/irc$ gsi trace.scm | > (foo 1) | 1 | > (foo 0) | 0
Problem:
Can I control trace where I can say "trace foo, but not when it's called by bar".
I.e. rather than just saying "trace this function", I would like to be able to say:
(trace foo predicate)
where predicate is a function that takes as input the "stack" frame, and as output creates a #t / #f, which decides whether this particular trace should be printed
On a side note -- all the cool debugging functions in Gambit -- is this part of the 100K LOC scheme or 50K LOC hand written C? (hoping it's the former)