diff --git a/beautiful-racket-lib/br/debug.rkt b/beautiful-racket-lib/br/debug.rkt index a38ffd1..53a8074 100644 --- a/beautiful-racket-lib/br/debug.rkt +++ b/beautiful-racket-lib/br/debug.rkt @@ -12,9 +12,11 @@ (define-macro-cases report-datum [(_ STX-EXPR) #`(report-datum STX-EXPR #,(syntax->datum #'STX-EXPR))] [(_ STX-EXPR NAME) - #'(let () - (eprintf "~a = ~v\n" 'NAME (syntax->datum STX-EXPR)) - STX-EXPR)]) + #'(let ([stx STX-EXPR]) + (eprintf "~a = ~v\n" 'NAME (if (eof-object? stx) + stx + (syntax->datum stx))) + stx)]) (define-macro (define-multi-version MULTI-NAME NAME) #'(define-macro (MULTI-NAME X (... ...))