Remove $void CPS expression type

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

diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 9537e9c..7f6dae4 100644 (file)
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -250,8 +250,6 @@
         (($ $values (arg))
          (or (maybe-load-constant dst arg)
              (maybe-mov dst (slot arg))))
-        (($ $void)
-         (emit-load-constant asm dst *unspecified*))
         (($ $const exp)
          (emit-load-constant asm dst exp))
         (($ $closure k 0)