5faab8b578
- `debugm' does not parse or print the arguments to the form,
so it works for macros, not just function application
36 lines
1.5 KiB
Racket
36 lines
1.5 KiB
Racket
#lang racket/base
|
|
|
|
(provide debug debugm)
|
|
|
|
;; printf debugging convenience
|
|
(define-syntax debug
|
|
(syntax-rules ()
|
|
[(_ (f . args))
|
|
(begin (printf "starting ~a (~a)~n" 'f f)
|
|
(let ([l (list . args)])
|
|
(printf "arguments are:~n")
|
|
(for/list ([arg 'args]
|
|
[val l])
|
|
(printf "\t~a: ~a~n" arg val))
|
|
(let ([e (with-handlers ([values (lambda (exn)
|
|
(printf "~a raised exception ~a~n" 'f exn)
|
|
(raise exn))])
|
|
(call-with-values (lambda () (apply f l)) list))])
|
|
(if (and (pair? e) (null? (cdr e)))
|
|
(printf "~a result was ~a~n" 'f (car e))
|
|
(printf "~a results were ~a~n" 'f e))
|
|
(apply values e))))]
|
|
[(_ f . args) (debug (f . args))]))
|
|
|
|
(define-syntax debugm
|
|
(syntax-rules ()
|
|
[(_ kw . forms)
|
|
(begin (printf "starting ~a\n" 'kw)
|
|
(let ([e (with-handlers ([values (lambda (exn)
|
|
(printf "~a raised exception ~a~n" 'kw exn)
|
|
(raise exn))])
|
|
(call-with-values (lambda () (kw . forms)) list))])
|
|
(if (and (pair? e) (null? (cdr e)))
|
|
(printf "~a result was ~a~n" 'kw (car e))
|
|
(printf "~a results were ~a~n" 'kw e))
|
|
(apply values e)))])) |