Closure conversion fix

lib/passes.scm

@@ -469,7 +469,7 @@
 	       (define (generate-closure-set g clo)
 		 (define (find-closure f)
 		   (let loop ((groups groups) (closures closures))
-		     (let loop2 ((lams (map car groups)))
+		     (let loop2 ((lams (car groups)))
 		       (if (null? lams)
 			   (loop (cdr groups) (cdr closures))
 			   (if (eq? f (caar lams))

test/CMakeLists.txt

@@ -230,3 +230,5 @@ set_tests_properties(bench2/mperm PROPERTIES PASS_REGULAR_EXPRESSION "CSVLINE")
 add_test(NAME bench2/equal WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}/test COMMAND ${CMAKE_BINARY_DIR}/src/hawk  bench2/equal.scm)
 set_tests_properties(bench2/equal PROPERTIES PASS_REGULAR_EXPRESSION "CSVLINE")
 
+# Regression
+add_test(NAME regression/closure WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}/test COMMAND ${CMAKE_BINARY_DIR}/src/hawk  regression/closure.scm)

test/regression/closure.scm

@@ -0,0 +1,15 @@
+(define (pp)
+  (define (pp-expr)
+    (style)
+    max-call-head-width)
+  (define (pp-do) pp-expr)
+  (define max-call-head-width 5)
+  (define (style) pp-do)
+
+  (pp-expr))
+
+(display (pp))
+
+
+
+