[Guile-commits] 09/99: get rid of unused match case

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit a3ddf537dc2ef03adad7487f2513108d3fa65c5e
Author: Ian Price <ianprice90@googlemail.com>
AuthorDate: Sun Jun 7 17:11:22 2015 +0100

    get rid of unused match case
---
 module/language/cps/compile-js.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/module/language/cps/compile-js.scm 
b/module/language/cps/compile-js.scm
index 3b5e35e..250b7a1 100644
--- a/module/language/cps/compile-js.scm
+++ b/module/language/cps/compile-js.scm
@@ -76,10 +76,7 @@
                           (make-continue k2
                                          (append (map make-id req) (list 
(make-id rest)))))))
     (($ $cont k ($ $kreceive ($ $arity req _ #f _ _) k2))
-     (make-var k (make-continuation req (make-continue k2 (map make-id req)))))
-    (_
-     `(cont:todo: ,cont))
-    ))
+     (make-var k (make-continuation req (make-continue k2 (map make-id 
req)))))))
 
 (define (compile-exp exp k)
  (match exp