add report*

pull/2/head
Matthew Butterick 10 years ago
parent 00f82f1f93
commit 3426730859

@ -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 ()
@ -10,3 +10,7 @@
#'(begin
(displayln (format "~a = ~v" 'name expr) (current-error-port))
expr)]))
(define-syntax (report* stx)
(syntax-case stx ()
[(_ expr ...) (datum->syntax stx `(begin ,@(map (λ(arg) `(report ,arg)) (syntax->datum #'(expr ...)))))]))

Loading…
Cancel
Save