Remove $void CPS expression type

[bpt/guile.git] / module / language / cps / reify-primitives.scm

diff --git a/module/language/cps/reify-primitives.scm b/module/language/cps/reify-primitives.scm
index db9f4bb..286fd7c 100644 (file)
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -139,7 +139,8 @@
                 => (lambda (idx)
                      (builtin-ref idx k src)))
                (else (primitive-ref name k src)))
-              (build-cps-term ($continue k src ($void)))))
+              (build-cps-term ($continue k src
+                                ($const *unspecified*)))))
          (($ $primcall 'call-thunk/no-inline (proc))
           (build-cps-term
             ($continue k src ($call proc ()))))