From 66dc6e0e6ebdc0045d106c008c35d20b441eaf15 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 25 Jul 2014 11:20:15 -0700 Subject: [PATCH] change splitf-at* to filter-split --- list.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/list.rkt b/list.rkt index 4a58a0c..3966ff5 100644 --- 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)