diff --git a/debug.rkt b/debug.rkt index e8435af..1c49afa 100644 --- a/debug.rkt +++ b/debug.rkt @@ -1,7 +1,7 @@ #lang racket/base (require (for-syntax racket/base racket/syntax)) -(provide report) +(provide report report*) (define-syntax (report stx) (syntax-case stx () @@ -9,4 +9,8 @@ [(_ expr name) #'(begin (displayln (format "~a = ~v" 'name expr) (current-error-port)) - expr)])) \ No newline at end of file + expr)])) + +(define-syntax (report* stx) + (syntax-case stx () + [(_ expr ...) (datum->syntax stx `(begin ,@(map (λ(arg) `(report ,arg)) (syntax->datum #'(expr ...)))))]))