From 92a3fb2d826f704b014cff99e1fdbaf4f4f2d25d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 25 Jul 2014 10:56:49 -0700 Subject: [PATCH] rename trim to trimf --- list.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/list.rkt b/list.rkt index f5f24bf..4a58a0c 100644 --- a/list.rkt +++ b/list.rkt @@ -2,9 +2,9 @@ (require racket/list) (require "define.rkt" "len.rkt" "coerce.rkt") -(define+provide/contract (trim items test-proc) +(define+provide/contract (trimf xs test-proc) (list? procedure? . -> . list?) - (dropf-right (dropf items test-proc) test-proc)) + (dropf-right (dropf xs test-proc) test-proc)) (define+provide/contract (list->slices xs len) @@ -17,7 +17,7 @@ (define+provide/contract (splitf-at* xs split-test) (list? predicate/c . -> . (listof list?)) - (let loop ([xs (trim xs split-test)] [acc '()]) + (let loop ([xs (trimf xs split-test)] [acc '()]) (if (empty? xs) (reverse acc) ; because accumulation is happening backward (let-values ([(item rest)