mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 01:10:24 +02:00
Code Activity

Remove dead case in CSE

Browse source 
* module/language/cps/cse.scm (apply-cse): Remove a case that couldn't
  occur.
This commit is contained in:
Andy Wingo 2014-07-06 12:17:58 +02:00
parent 6fc634f8a3
commit 7700e67226
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/cse.scm
View file

@ -445,8 +445,6 @@ could be that both true and false proofs are available."
(define (visit-fun-cont cont) (define (visit-fun-cont cont)
(rewrite-cps-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)) (($ $cont label ($ $kfun src meta self tail clause))
(label ($kfun src meta self ,tail (label ($kfun src meta self ,tail
,(and clause (visit-fun-cont clause))))) ,(and clause (visit-fun-cont clause)))))