diff options
-rw-r--r-- | module/language/cps/rotate-loops.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/module/language/cps/rotate-loops.scm b/module/language/cps/rotate-loops.scm index c6b68bb32..0fab94f1d 100644 --- a/module/language/cps/rotate-loops.scm +++ b/module/language/cps/rotate-loops.scm @@ -51,21 +51,12 @@ (define-module (language cps rotate-loops) #: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 utils) #:use-module (language cps intmap) #:use-module (language cps intset) #: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) (intset-subtract (intset-fold (lambda (label exits) (intset-union exits (intmap-ref succs label))) |