Hello Guix!

I am trying to re-write the custom 'install phase of this 
(https://paste.debian.net/1188301/) package definition,as follows:

```
            (replace 'install
              (lambda _
                (for-each (lambda (solution)
                            (with-directory-excursion solution
                                 (apply (assoc-ref copy:%standard-phases 
'install)
                                        #:install-plan
                                        '(("src" (string-append 
"include/" solution)
                                           #:include-regexp ("\\.h$"))))))
                          (list
                           "qtlockedfile"
                           "qtpropertybrowser"
                           "qtservice"
                           "qtsingleapplication"
                           "qtsoap"))
                #t))
```

I get an error In procedure apply: Apply to non-list: "src".

Can anyone help me with the correct snippet please?

Regards,
RG.