From f24b9140d6f74804d5599ec225717d38ca443813 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:26 -0800 Subject: Import Upstream version 2c0 --- trace.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'trace.scm') 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 -- cgit v1.2.3