From 5bea21e81ed516440e34e480f2c33ca41aa8c597 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:36 -0800 Subject: Import Upstream version 3a4 --- trace.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'trace.scm') diff --git a/trace.scm b/trace.scm index 0aa9ab5..690836c 100644 --- a/trace.scm +++ b/trace.scm @@ -71,12 +71,12 @@ (cdar debug:call-stack)) (cdr debug:call-stack)) (cons (list 1 name) debug:call-stack))) - (do ((i trace:indent (+ -1 i))) ((zero? i)) (display #\ )) + (do ((i trace:indent (+ -1 i))) ((zero? i)) (display #\space)) (apply qpn CALL name args) (set! trace:indent (modulo (+ 1 trace:indent) 16)) (let ((ans (apply function args))) (set! trace:indent (modulo (+ -1 trace:indent) 16)) - (do ((i trace:indent (+ -1 i))) ((zero? i)) (display #\ )) + (do ((i trace:indent (+ -1 i))) ((zero? i)) (display #\space)) (qpn RETN name ans) (set! debug:call-stack cs) ans))) -- cgit v1.2.3