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

[Andy Wingo]

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
      function.
---
 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))