mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

Remove unused function in simplify.scm

Browse source 
* module/language/cps/simplify.scm (intset-add*): Remove unused
  function.
This commit is contained in:
Andy Wingo 2016-01-04 23:32:55 +01:00
parent f56f580a4a
commit 4137c224e2
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/language/cps/simplify.scm
View file

@ -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))