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