cwebber pushed a commit to branch compile-to-js-merge
in repository guile.
commit a3ddf537dc2ef03adad7487f2513108d3fa65c5e
Author: Ian Price <[email protected]>
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
