Unexpected error with #~(modify-phases

[Simon Tournier]

Hi,

Reviewing #59997 [1], there is something I am missing.

Using the V2, all works as expected.  But when I just modify with this
diff:

--8<---------------cut here---------------start------------->8---
1 file changed, 2 insertions(+), 2 deletions(-)
gnu/packages/minimacy.scm | 4 ++--

modified   gnu/packages/minimacy.scm
@@ -48,8 +48,8 @@ (define-public minimacy
                "X11"             ;for GUI programs, with X11 and ALSA
                "X11GL"))         ;for GUI programs, with X11, OpenGL, and ALSA
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
+     (list #:phases
+       #~(modify-phases %standard-phases
          (add-after 'unpack 'patch-path
            (lambda* (#:key outputs #:allow-other-keys)
              (substitute* "src/hw.c"
--8<---------------cut here---------------end--------------->8---

then I get this error:

--8<---------------cut here---------------start------------->8---
gnu/packages/minimacy.scm:59:9: error: (replace (quote build) (lambda _ (chdir 
"unix") (invoke "make" "nox") (for-each delete-file (find-files "../obj" 
"\\.o$")) (invoke "make" "x11") (for-each delete-file (find-files "../obj" 
"\\.o$")) (invoke "make" "x11gl") (chdir ".."))): 'replace' may only be used 
within 'modify-inputs'
--8<---------------cut here---------------end--------------->8---

where the (unmodified) phase reads:

--8<---------------cut here---------------start------------->8---
         (add-after 'unpack 'patch-path
[...]
         (delete 'configure)
         (replace 'build
           (lambda _
             (chdir "unix")
             (invoke "make" "nox")
             (for-each delete-file
                       (find-files "../obj" "\\.o$"))
             (invoke "make" "x11")
             (for-each delete-file
                       (find-files "../obj" "\\.o$"))
             (invoke "make" "x11gl")
             (chdir "..")))
         (replace 'install
[...]
--8<---------------cut here---------------end--------------->8---

What do I miss?

1: https://issues.guix.gnu.org/msgid/m1tu219bmo.fsf@fastmail.net


Cheers,
simon