fix lambda cps printing

1 files changed, 2 insertions, 2 deletions

diff --git a/cps.scm b/cps.scm
index d9d5090..d89e1a6 100644
--- a/cps.scm
+++ b/cps.scm
@@ -87,8 +87,8 @@
       `(kappa ,formal ,metakont ,(cps->sexpr cps-cmd)))
     (after ((let (cps-closure=> form)
               => (formal metakont-formal kont-formal body)))
-      `(pass (lambda ((,metakont-formal ,kont-formal) ,formal)
-               ,(cps->sexpr body))))
+      `(lambda ((,metakont-formal ,kont-formal) ,formal)
+         ,(cps->sexpr body)))
     (after ((let (cps-apply-kont=> form) => (to-pass metakont kont)))
       (let ((to-pass (if (cps-closure? to-pass)
                          (cps->sexpr to-pass)