From f514860976d17cb3874903d291566cc74f68eb41 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 1 Jun 2018 12:00:15 -0400
Subject: [PATCH] Cleanup

---
 find-direct-rec-calls.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/find-direct-rec-calls.scm b/find-direct-rec-calls.scm
index 94ec2381..99e8e9ae 100644
--- a/find-direct-rec-calls.scm
+++ b/find-direct-rec-calls.scm
@@ -1,14 +1,10 @@
-;; Instead of just porting this to cps-optmizations should consider
-;; creating a new subdirectory under scheme/cyclone/cps-optimizations and starting to place
-;; things like this there as new libraries, to isolate them, improve testability, and help
-;; make optimizations easiser to maintain
 (import
   (scheme base)
   (scheme cyclone ast)
   (scheme cyclone util)
   (scheme cyclone pretty-print)
   (scheme write)
-  ;(srfi 2)
+  (srfi 2)
 )
 
   (define (find-direct-recursive-calls exp)
@@ -106,7 +102,5 @@
          (shorterp k$240 (cdr x$6$131) (cdr y$5$130))))))
 ))
 
-(write `(todo exp def-exps ,(ast:lambda? 0) (ast:lambda? (car def-exps))))(newline)
 (find-direct-recursive-calls
   (ast:sexp->ast sexp))
-(write 'done)