[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/05: Simplify rotate-loops.scm
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/05: Simplify rotate-loops.scm |
Date: |
Mon, 27 Jul 2015 13:06:21 +0000 |
wingo pushed a commit to branch master
in repository guile.
commit ce2888701c02870aeaeba53675e2cc132c9d10dc
Author: Andy Wingo <address@hidden>
Date: Mon Jul 27 12:59:09 2015 +0200
Simplify rotate-loops.scm
* module/language/cps/rotate-loops.scm: Clean up unused code.
---
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 c6b68bb..0fab94f 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)))