Simplify halt continuation

Author: gregr

control/cps-simple.rkt

@@ -43,7 +43,7 @@
                       (lambda (i r:rand)
                         `(,r:rator ,r:rand ,(return/push k i r)))))))))
 
-(define (cps E) (cps/k 0 E (lambda (_ r) `(halt ,r))))
+(define (cps E) (cps/k 0 E 'halt))
 
 
 (define examples
@@ -60,6 +60,8 @@
          (* (if (y (g b)) (h c) '5)
             (j d))))
 
+    (x y)
+
     (lambda (q) (q '11))
     ))