(modify-phases %standard-phases
  (add-before
   'build 'foo-phase
   (lambda _ 'foo)))