pull/2/head
Matthew Butterick 10 years ago
parent f9023b256b
commit 84fe0e4de8

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

Loading…
Cancel
Save