change splitf-at* to filter-split

10 years ago · 66dc6e0e6e
parent 92a3fb2d82
commit 66dc6e0e6e
1 changed files with 1 additions and 1 deletions
--- a/list.rkt
+++ b/list.rkt
@ -15,7 +15,7 @@
    [else (cons (take xs len) (list->slices (drop xs len) len))]))


-(define+provide/contract (splitf-at* xs split-test)
+(define+provide/contract (filter-split xs split-test)
  (list? predicate/c . -> . (listof list?))
  (let loop ([xs (trimf xs split-test)] [acc '()]) 
    (if (empty? xs)