Root higher-order CPS term is always $kfun $cont

[bpt/guile.git] / module / language / tree-il / compile-cps.scm

diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm
index e2b4fb3..96f27cd 100644 (file)
--- a/module/language/tree-il/compile-cps.scm
+++ b/module/language/tree-il/compile-cps.scm
@@ -603,15 +603,14 @@ integer."
                  (scope-counter 0))
     (let ((src (tree-il-src exp)))
       (let-fresh (kinit ktail kclause kbody) (init)
-        (build-cps-exp
-          ($fun '()
-            (kinit ($kfun src '() init (ktail ($ktail))
-                     (kclause
-                      ($kclause ('() '() #f '() #f)
-                        (kbody ($kargs () ()
-                                 ,(convert exp ktail
-                                           (build-subst exp))))
-                        ,#f))))))))))
+        (build-cps-cont
+          (kinit ($kfun src '() init (ktail ($ktail))
+                   (kclause
+                    ($kclause ('() '() #f '() #f)
+                      (kbody ($kargs () ()
+                               ,(convert exp ktail
+                                         (build-subst exp))))
+                      ,#f)))))))))
 
 (define *comp-module* (make-fluid))