[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 03/03: Remove unused function in simplify.scm

From: Andy Wingo
Subject: [Guile-commits] 03/03: Remove unused function in simplify.scm
Date: Tue, 05 Jan 2016 20:19:56 +0000

wingo pushed a commit to branch master
in repository guile.

commit 4137c224e24215bd9496dfc2fd084a09383125a2
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 4 23:32:55 2016 +0100

    Remove unused function in simplify.scm
    * module/language/cps/simplify.scm (intset-add*): Remove unused
 module/language/cps/simplify.scm |    6 ------
 1 files changed, 0 insertions(+), 6 deletions(-)

diff --git a/module/language/cps/simplify.scm b/module/language/cps/simplify.scm
index 7878a1e..280e257 100644
--- a/module/language/cps/simplify.scm
+++ b/module/language/cps/simplify.scm
@@ -37,12 +37,6 @@
 (define (intset-maybe-add! set k add?)
   (if add? (intset-add! set k) set))
-(define (intset-add* set k*)
-  (let lp ((set set) (k* k*))
-    (match k*
-      ((k . k*) (lp (intset-add set k) k*))
-      (() set))))
 (define (intset-add*! set k*)
   (fold1 (lambda (k set) (intset-add! set k)) k* set))

reply via email to

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