summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-07-06 12:17:58 +0200
committerAndy Wingo <wingo@pobox.com>2014-07-22 12:18:07 +0200
commit7700e67226e76eb53ceef12368992161243b59df (patch)
tree7c9543ba7d241997958951af0566986f3f623d69
parent6fc634f8a378475efa336afadb8cef26807bd0cb (diff)
downloadguile-7700e67226e76eb53ceef12368992161243b59df.tar.gz
Remove dead case in CSE
* module/language/cps/cse.scm (apply-cse): Remove a case that couldn't occur.
-rw-r--r--module/language/cps/cse.scm2
1 files changed, 0 insertions, 2 deletions
diff --git a/module/language/cps/cse.scm b/module/language/cps/cse.scm
index 204480e09..3a03ede83 100644
--- a/module/language/cps/cse.scm
+++ b/module/language/cps/cse.scm
@@ -445,8 +445,6 @@ could be that both true and false proofs are available."
(define (visit-fun-cont cont)
(rewrite-cps-cont cont
- (($ $cont label ($ $kargs names vars body))
- (label ($kargs names vars ,(visit-term body label))))
(($ $cont label ($ $kfun src meta self tail clause))
(label ($kfun src meta self ,tail
,(and clause (visit-fun-cont clause)))))