diff --git a/list.rkt b/list.rkt index 44d050f..9c2e81f 100644 --- a/list.rkt +++ b/list.rkt @@ -17,7 +17,6 @@ (define-values (head tail) (splitf-at others (compose1 not pred))) (cons (append (or car-match null) head) (slicef-at tail pred force?))])) -(require sugar/debug) (define+provide/contract (slice-at xs len [force? #f]) ((list? (and/c integer? positive?)) (boolean?) . ->* . (listof list?)) (cond @@ -46,9 +45,6 @@ counter) - - - (define+provide/contract (members-unique? x) ((or/c list? vector? string?) . -> . boolean?) (cond