Remove $kif

[bpt/guile.git] / module / language / cps / dce.scm

diff --git a/module/language/cps/dce.scm b/module/language/cps/dce.scm
index 1318a81..fbfd2f3 100644 (file)
--- a/module/language/cps/dce.scm
+++ b/module/language/cps/dce.scm
@@ -74,7 +74,6 @@
             (cont-defs kargs))
            (($ $kclause arity ($ $cont kargs ($ $kargs names syms)))
             syms)
-           (($ $kif) #f)
            (($ $kfun src meta self) (list self))
            (($ $ktail) #f)))
         (lp (1+ n))))
@@ -236,7 +235,6 @@
                                                   (mark-live! use)))
                                               args defs))))))))))
                  (($ $kreceive arity kargs) #f)
-                 (($ $kif) #f)
                  (($ $kclause arity ($ $cont kargs ($ $kargs names syms body)))
                   (for-each mark-live! syms))
                  (($ $kfun src meta self)