Remove $void CPS expression type

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

diff --git a/module/language/cps/types.scm b/module/language/cps/types.scm
index 934fa11..f9dee59 100644 (file)
--- a/module/language/cps/types.scm
+++ b/module/language/cps/types.scm
@@ -1276,8 +1276,6 @@ mapping symbols to types."
          (match (lookup-cont k dfg)
            (($ $kargs (_) (var))
             (let ((entry (match exp
-                           (($ $void)
-                            (make-type-entry &unspecified -inf.0 +inf.0))
                            (($ $const val)
                             (constant-type val))
                            ((or ($ $prim) ($ $fun) ($ $closure))