suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

`debug' prints the value of the function being called

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-12 17:04:18 -04:00
parent e0c82c8ac6
commit bc7bd9245e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/unstable/debug.rkt
View File

@ -6,7 +6,7 @@
(define-syntax debug (define-syntax debug
(syntax-rules () (syntax-rules ()
[(_ (f . args)) [(_ (f . args))
(begin (printf "starting ~a~n" 'f) (begin (printf "starting ~a (~a)~n" 'f f)
(let ([l (list . args)]) (let ([l (list . args)])
(printf "arguments are:~n") (printf "arguments are:~n")
(for/list ([arg 'args] (for/list ([arg 'args]