(define-syntax s
  (syntax-rules () 
    ((_ e ...) (let ((Bad 1)) (list Bad e ...)))))

(s Bad)