mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Simplify rotate-loops.scm

Browse source 
* module/language/cps/rotate-loops.scm: Clean up unused code.
This commit is contained in:
Andy Wingo 2015-07-27 12:59:09 +02:00
parent e54fbff185
commit ce2888701c
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/cps/rotate-loops.scm
View file

@ -51,21 +51,12 @@
(define-module (language cps rotate-loops) (define-module (language cps rotate-loops)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module ((srfi srfi-1) #:select (filter-map))
#:use-module (srfi srfi-9)
#:use-module (language cps) #:use-module (language cps)
#:use-module (language cps utils) #:use-module (language cps utils)
#:use-module (language cps intmap) #:use-module (language cps intmap)
#:use-module (language cps intset) #:use-module (language cps intset)
#:export (rotate-loops)) #:export (rotate-loops))
(define-record-type $loop
(make-loop entry exits body)
loop?
(entry loop-entry)
(exits loop-exits)
(body loop-body))
(define (loop-successors scc succs) (define (loop-successors scc succs)
(intset-subtract (intset-fold (lambda (label exits) (intset-subtract (intset-fold (lambda (label exits)
(intset-union exits (intmap-ref succs label))) (intset-union exits (intmap-ref succs label)))