From 1f6acbc4e2ffa56868745f6b9f2dcc8a5618a3d8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 11 May 2016 23:03:56 -0400
Subject: [PATCH] Added missing arg

---
 scheme/cyclone/optimize-cps.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 98dcf43c..c7ac8a3c 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -99,7 +99,7 @@
              (for-each
                (lambda (expr)
                  (analyze expr id))
-               (ast:lambda-body))))
+               (ast:lambda-body exp))))
           ((ref? exp)
            (let ((var (adb:get/default exp (adb:make-var))))
             (adbv:set-ref-by! var (cons lid (adbv:ref-by var)))