I have two enhancement/suggestions for the trace egg:

1. Adding the line highlighted below to trace.scm gives me information on
were the call was made, something I find very useful.
2. With huge or hierarchal data structures trace output gets annoyingly
long. A mechanism for triming the output would be helpful.

(define (traced-procedure-entry name args)
  (let ((port (trace-output-port)))
    (trace-indent)
    (set! *trace-indent-level* (fx+ 1 *trace-indent-level*))
    (write (cons name args) port)
    (write ", Called from: " port)
 *   (write (conc (car (reverse (get-call-chain)))))*
    (write-char #\newline port)
    (flush-output port) ) )

Thanks,
-- 
Matt
-=-
90% of the nations wealth is held by 2% of the people. Bummer to be in the
majority...
_______________________________________________
Chicken-users mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to