(modify-phases %standard-phases
  (replace 'build
    (lambda _ (zero? 0))))

(do-something
 (replace 'this
          'that
          'and-that))