X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/1f3babaaef5f4c41c24615035a9549e2faf2605e..a9ec16f9c5574d80f66c173b495285579f5894b4:/module/language/cps/renumber.scm

diff --git a/module/language/cps/renumber.scm b/module/language/cps/renumber.scm
index 4f51b7081..4bbeb36ef 100644
--- a/module/language/cps/renumber.scm
+++ b/module/language/cps/renumber.scm
@@ -1,6 +1,6 @@
 ;;; Continuation-passing style (CPS) intermediate language (IL)
 
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2014, 2015 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -308,7 +308,7 @@
        ($continue (relabel k) src ,(visit-exp exp)))))
   (define (visit-exp exp)
     (match exp
-      ((or ($ $void) ($ $const) ($ $prim))
+      ((or ($ $const) ($ $prim))
        exp)
       (($ $closure k nfree)
        (build-cps-exp ($closure (relabel k) nfree)))