add report*

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)]))
+         expr)]))
+
+(define-syntax (report* stx)
+  (syntax-case stx ()
+    [(_ expr ...) (datum->syntax stx `(begin ,@(map (λ(arg) `(report ,arg)) (syntax->datum #'(expr ...)))))]))