summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/cps/rotate-loops.scm9
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)))