#;1> (import trace)
; loading /usr/local/chicken/5/lib/chicken/11/trace.import.so ...
; loading /usr/local/chicken/5/lib/chicken/11/trace.so ...
; loading /usr/local/chicken/5/lib/chicken/11/advice.so ...
; loading /usr/local/chicken/5/lib/chicken/11/srfi-1.so ...
; loading /usr/local/chicken/5/lib/chicken/11/miscmacros.so ...
#;2> (define (foo x) (print 'foo '- x))
#;3> (break foo)
; setting break-point in foo
#;4> (foo 1)

Error: (foo) *** breakpoint ***: (foo 1)

	Call history:

	<stdin>:5	  (foo 1)
	<stdin>:5	  (foo 1)	<--
#;4> ,c
 1:  	<stdin>:5	  (foo 1)
*0:  	<stdin>:5	  (foo 1)
#;4> ,f 0
 1:  	<stdin>:5	  (foo 1)
*0:  	<stdin>:5	  (foo 1)
#;4> ,g x
no such variable: x
#;4> ,f 1
*1:  	<stdin>:5	  (foo 1)
 0:  	<stdin>:5	  (foo 1)
#;4> ,f x
no such frame
#;4> ,g x        
no environment in frame
#;4> (define (bar y) (foo y))
#;5> (unbreak foo)
; removing break-point in f_677
#;6> (break foo)
; setting break-point in foo
#;7> (bar 2)

Error: (foo) *** breakpoint ***: (foo 2)

	Call history:

	<stdin>:15	  (bar 2)
	<stdin>:15	  (bar 2)
	<stdin>:12	  [bar] (foo y)	<--
#;7> ,g x
no environment in frame
#;7> ,g y
no environment in frame
#;7> ,c
 2:  	<stdin>:15	  (bar 2)
 1:  	<stdin>:15	  (bar 2)
*0:[]	<stdin>:12	  [bar] (foo y)
  ---
  y25:	  2
#;7> ,f 1
 2:  	<stdin>:15	  (bar 2)
*1:  	<stdin>:15	  (bar 2)
 0:[]	<stdin>:12	  [bar] (foo y)
#;7> ,g y
no such variable: y
#;7> ,f 2
*2:  	<stdin>:15	  (bar 2)
 1:  	<stdin>:15	  (bar 2)
 0:[]	<stdin>:12	  [bar] (foo y)
#;7> ,g y
no environment in frame
#;7> ,f 1
 2:  	<stdin>:15	  (bar 2)
*1:  	<stdin>:15	  (bar 2)
 0:[]	<stdin>:12	  [bar] (foo y)
#;7> ,g y
no such variable: y
#;7> ,f 0
 2:  	<stdin>:15	  (bar 2)
 1:  	<stdin>:15	  (bar 2)
*0:[]	<stdin>:12	  [bar] (foo y)
  ---
  y25:	  2
#;7> ,g y
; getting y25
2
#;8>