From 0300414a1649a8cff867dd2e6a4e4ba5f1820523 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Nov 2007 20:29:03 +0000 Subject: [PATCH] change trace & untrace to not return anything svn: r7853 original commit: 517e20f868d1225ce0407eee677f677ac0cabbad --- collects/mzlib/trace.ss | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/collects/mzlib/trace.ss b/collects/mzlib/trace.ss index 080ed6a..37728f7 100644 --- a/collects/mzlib/trace.ss +++ b/collects/mzlib/trace.ss @@ -147,8 +147,7 @@ (for-each (lambda (proc setter traced-proc) (unless (traced-proc? proc) (setter (make-traced-proc traced-proc proc)))) - procs setters traced-procs) - ids) + procs setters traced-procs)) ;; Key used for a continuation mark to indicate ;; the nesting depth: @@ -253,12 +252,9 @@ id))) ids) (syntax - (append - (if (traced-proc? id) - (begin - (set! id (traced-proc-ref id 1)) - '(id)) - null) + (begin + (when (traced-proc? id) + (set! id (traced-proc-ref id 1))) ...)))]))) )