bug#19389: visit-entry argument problem in module/language/cps/verify.scm

[Andy Wingo <wingo@pobox.com>]

Thank you Steven!  I really appreciate you trying out the development
branch so early, and I apologize that I wasn't able to acknowledge the
report then.  When you reported I think I wasn't thinking about the
issue because I was in the middle of the transition to the "cps soup"
IR, which ended up eliminating this bug through other means, so I will
close this report.  Please let us know if you find problems in the
future; reports are very welcome.

Regards,

Andy

On Mon 15 Dec 2014 17:18, "Steven H. Margolis" <shm@pobox.com> writes:

> This weekend I noticed a build problem in guile from the savannah git repository. I think the patch below is an appropriate fix:
>
> (08:06:43 <~/OpenSource/guile2/guile-savannah>) 0 $ git diff
> diff --git a/module/language/cps/verify.scm b/module/language/cps/verify.scm
> index a39e99b..b636fc4 100644
> --- a/module/language/cps/verify.scm
> +++ b/module/language/cps/verify.scm
> @@ -129,7 +129,7 @@
>      (match fun
>        (($ $fun (free ...) entry)
>         (for-each (cut check-var <> v-env) free)
> -       (visit-entry '() v-env))
> +       (visit-entry '() k-env v-env))
>        (_
>         (error "unexpected $fun" fun))))