commenting out the all-applications collection for the moment; optimizaton to be done in an upcoming release, but not now.

compiler/compiler.rkt

@@ -771,7 +771,7 @@
 ;; Closures will target their value to the 'val register, and use return linkage.
 (define (compile-lambda-body exp cenv)
   (parameterize ([current-lambda-being-compiled exp])
-    (define all-applications (collect-lam-applications exp cenv))
+    ;; (define all-applications (collect-lam-applications exp cenv))
     
     (let: ([maybe-unsplice-rest-argument : InstructionSequence
                                          (if (Lam-rest? exp)

version.rkt

@@ -7,4 +7,4 @@
 (provide version)
 (: version String)
 
-(define version "1.229")
+(define version "1.231")