summaryrefslogtreecommitdiffstats
path: root/trace.scm
diff options
context:
space:
mode:
Diffstat (limited to 'trace.scm')
-rw-r--r--trace.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/trace.scm b/trace.scm
index d595277..2ffeaed 100644
--- a/trace.scm
+++ b/trace.scm
@@ -25,7 +25,10 @@
(not not) ;tracef will not trace parts
(car car) (cdr cdr) ;of itself.
(eq? eq?) (+ +) (zero? zero?) (modulo modulo)
- (apply apply) (display display) (qpn qpn))
+ (apply apply) (display display) (qpn qpn)
+
+ (CALL (string->symbol "CALL"))
+ (RETN (string->symbol "RETN")))
(lambda (function . optname)
(set! debug:indent 0)
(let ((name (if (null? optname) function (car optname))))
@@ -36,12 +39,12 @@
function)
(else
(do ((i debug:indent (+ -1 i))) ((zero? i)) (display #\ ))
- (apply qpn "CALLED" name args)
+ (apply qpn CALL name args)
(set! debug:indent (modulo (+ 1 debug:indent) 8))
(let ((ans (apply function args)))
(set! debug:indent (modulo (+ -1 debug:indent) 8))
(do ((i debug:indent (+ -1 i))) ((zero? i)) (display #\ ))
- (qpn "RETURNED" name ans)
+ (qpn RETN name ans)
ans))))))))
;;; the reason I use a symbol for debug:untrace-object is so