From 520effbfbc72b528a3a251ffc92e9fe7a20a6ffa Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 27 Aug 2014 13:09:44 -0700 Subject: [PATCH] delete list->slices --- list.rkt | 2 -- 1 file changed, 2 deletions(-) diff --git a/list.rkt b/list.rkt index 03c50e4..2f5b1f2 100644 --- a/list.rkt +++ b/list.rkt @@ -25,8 +25,6 @@ [(len . > . (length xs)) (if force? null (list xs))] [else (cons (take xs len) (slice-at (drop xs len) len force?))])) -(define list->slices slice-at) ; backward compatibility - (define+provide/contract (filter-split xs split-test) (list? predicate/c . -> . (listof list?)) (let loop ([xs (trimf xs split-test)] [acc '()])