Custom 'install phase

[Raghav Gururajan]

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.

OpenPGP_signature
Description: OpenPGP digital signature