strip trailing whitespace

separate from my content commit so you can skip this if you want
pull/23/head
Ryan Davis 6 years ago committed by Matthew Butterick
parent 0a625a17ee
commit d0f5fa76a9

@ -5,14 +5,14 @@
(define-macro-cases report
[(_ EXPR) #'(report EXPR EXPR)]
[(_ EXPR NAME)
#'(let ([expr-result EXPR])
#'(let ([expr-result EXPR])
(eprintf "~a = ~v\n" 'NAME expr-result)
expr-result)])
(define-macro-cases report-datum
[(_ STX-EXPR) #`(report-datum STX-EXPR #,(syntax->datum #'STX-EXPR))]
[(_ STX-EXPR NAME)
#'(let ()
#'(let ()
(eprintf "~a = ~v\n" 'NAME (syntax->datum STX-EXPR))
STX-EXPR)])
@ -20,4 +20,4 @@
#'(define-macro (MULTI-NAME X (... ...))
#'(begin (NAME X) (... ...))))
(define-multi-version report* report)
(define-multi-version report* report)

Loading…
Cancel
Save