diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-01-04 23:32:55 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-01-04 23:33:24 +0100 |
| commit | 4137c224e24215bd9496dfc2fd084a09383125a2 (patch) | |
| tree | 762826a5613614280c65de95109060702af6a309 | |
| parent | f56f580a4a8d99cec79c5a64d41e1d005c2bac31 (diff) | |
Remove unused function in simplify.scm
* module/language/cps/simplify.scm (intset-add*): Remove unused
function.
| -rw-r--r-- | 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 7878a1e36..280e2573d 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)) |