Re: [PATCH] utils: Allow wrap-program to be called multiple times.

[mhw@netris.org]

Eric Bavier <ericbavier@gmail.com> writes:

> diff --git a/guix/build/utils.scm b/guix/build/utils.scm
> index d169053..7257b30 100644
> --- a/guix/build/utils.scm
> +++ b/guix/build/utils.scm
> @@ -687,8 +687,7 @@ known as `nuke-refs' in Nixpkgs."
>                               result))))))
>  
>  (define* (wrap-program prog #:rest vars)

[... docstring changes ...]

> +  (define (wrapper-file-name number)
> +    (format #f "~a/.~a-wrap-~2'0d" (dirname prog) (basename prog) number))

When compiling core-updates, I now see the following warning:

--8<---------------cut here---------------start------------->8---
LC_ALL=C							\
./pre-inst-env					\
/home/mhw/.guix-profile/bin/guild compile -L "." -L "."	\
  -Wformat -Wunbound-variable -Warity-mismatch			\
  --target="i686-pc-linux-gnu"						\
  -o "guix/build/utils.go" "guix/build/utils.scm"
guix/build/utils.scm:718:4: warning: "~a/.~a-wrap-~2'0d": unsupported format option ~2, use (ice-9 format) instead
wrote `guix/build/utils.go'
--8<---------------cut here---------------end--------------->8---

Have you verified that this call to 'format' works as expected in all
the relevant cases?

      Thanks,
        Mark