From bc7bd9245ebee0fc563702627ca29213ebcd28ea Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 12 May 2010 17:04:18 -0400 Subject: [PATCH] `debug' prints the value of the function being called --- collects/unstable/debug.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/unstable/debug.rkt b/collects/unstable/debug.rkt index b8960d053e..e4579c0746 100644 --- a/collects/unstable/debug.rkt +++ b/collects/unstable/debug.rkt @@ -6,7 +6,7 @@ (define-syntax debug (syntax-rules () [(_ (f . args)) - (begin (printf "starting ~a~n" 'f) + (begin (printf "starting ~a (~a)~n" 'f f) (let ([l (list . args)]) (printf "arguments are:~n") (for/list ([arg 'args]