Remove $void CPS expression type

[bpt/guile.git] / module / language / cps / effects-analysis.scm

diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm
index 8951b40..3c0da24 100644 (file)
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -441,7 +441,7 @@ is or might be a read or a write to the same location as A."
 
 (define (expression-effects exp dfg)
   (match exp
-    ((or ($ $void) ($ $const) ($ $prim) ($ $values))
+    ((or ($ $const) ($ $prim) ($ $values))
      &no-effects)
     (($ $fun)
      (&allocate &unknown-memory-kinds))