[Top][All Lists]

[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 
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 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]