From 3426730859e7f32735d6efc6258da9eac9ba5346 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 20 Nov 2014 16:15:31 -0800
Subject: [PATCH] add report*

---
 debug.rkt | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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 ...)))))]))