From 0b1490d1022824e328a7e7fe24047f768910d33f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 7 Apr 2015 14:01:16 -0400
Subject: [PATCH] Simplify CPS conversion of top-level code

---
 trans.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/trans.scm b/trans.scm
index bb6e1b59..1661835a 100644
--- a/trans.scm
+++ b/trans.scm
@@ -1612,9 +1612,7 @@
                 ,@(let ((k (gensym 'k))
                         (r (gensym 'r)))
                    (cps (car (define->exp ast)) 'unused))))
-            (cps ast
-               (let ((r (gensym 'r)))
-                   `(lambda (,r) (%halt ,r)))))))
+            (cps ast '%halt))))
     ast-cps))
 
 ;; Closure-conversion.