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

[Steven H. Margolis]

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))))