From 00579b8644ffdcc0f4ef737a34300d166894987a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 21 May 2018 18:57:33 -0400
Subject: [PATCH] Add enclosing define

---
 find-named-lets.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/find-named-lets.scm b/find-named-lets.scm
index ce911bf6..8dfe493c 100644
--- a/find-named-lets.scm
+++ b/find-named-lets.scm
@@ -18,6 +18,7 @@
 ;;                 (loop$14$171 zr$13$170 zi$12$169 c$11$168))
 ;;               #f)
 
+  (define (find-named-lets exp)
     (define (scan exp)
       (cond
        ((ast:lambda? exp)
@@ -73,6 +74,7 @@
           (else
             (map scan exp))))
        (else exp)))
+    (scan exp))
 
 ;; Test code follows:
 (define sexp
@@ -134,7 +136,7 @@
                      (Cyc-fast-plus c$15$172 1))))))))
         #f))))
 
-(scan 
+(find-named-lets
   (ast:sexp->ast 
     sexp))