From 4137c224e24215bd9496dfc2fd084a09383125a2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 4 Jan 2016 23:32:55 +0100 Subject: [PATCH] Remove unused function in simplify.scm * module/language/cps/simplify.scm (intset-add*): Remove unused function. --- module/language/cps/simplify.scm | 6 ------ 1 file changed, 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))