``ABSTRACT BULLSHITE''(define-syntax (eval-when-compile stx)
(syntax-case stx (compile)
((ewc b r ...)
(let ((r (eval-syntax #'b)))
(cond ((and (list? r)
(identifier? (car r))) #`#,r)
(else #`'#,r))))))