From 25833e807db7e62e55903e684ac62a694966e711 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 4 Oct 2013 16:36:17 +0200
Subject: [PATCH] Fix verify-cps

* module/language/cps/verify.scm (verify-cps): Fix visiting functions.
---
 module/language/cps/verify.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps/verify.scm b/module/language/cps/verify.scm
index 0276d1d8a..bb2e85751 100644
--- a/module/language/cps/verify.scm
+++ b/module/language/cps/verify.scm
@@ -124,7 +124,7 @@
       (($ $prim (? symbol? name))
        #t)
       (($ $fun)
-       (visit-fun fun k-env v-env))
+       (visit-fun exp k-env v-env))
       (($ $call (? symbol? proc) ((? symbol? arg) ...))
        (check-var proc v-env)
        (for-each (cut check-var <> v-env) arg))