From 8cd73b1d1984d15cc4a7e3d97082a5a1ada80257 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 3 Jan 2019 13:35:28 -0500
Subject: [PATCH] Use lists of formals

---
 scheme/cyclone/cps-opt-analyze-call-graph.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/cps-opt-analyze-call-graph.scm b/scheme/cyclone/cps-opt-analyze-call-graph.scm
index cf7aa575..8d57a09b 100644
--- a/scheme/cyclone/cps-opt-analyze-call-graph.scm
+++ b/scheme/cyclone/cps-opt-analyze-call-graph.scm
@@ -13,6 +13,7 @@
             (scheme write) 
             (scheme cyclone ast) 
             (scheme cyclone primitives)
+            (scheme cyclone transforms)
             (scheme cyclone cps-optimizations)
             (scheme cyclone util) 
             (scheme cyclone pretty-print)
@@ -60,7 +61,7 @@
       (for-each
         (lambda (a)
           (scan a vars))
-        (ast:lambda-args exp))
+        (ast:lambda-formals->list exp))
       (for-each
         (lambda (e)
           (scan e vars))
@@ -88,7 +89,7 @@
         (for-each
           (lambda (e)
             (scan e vars))
-          (ast:lambda-args (car exp)))
+          (ast:lambda-formals->list (car exp)))
 
         ;; Scan body, with reset vars (??)
         (for-each