From b9406e6a7518277a3fc52204261590388906d92a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 7 Mar 2013 16:42:56 -0500 Subject: [PATCH] Style changes. No need to stick with the srfi-1 style of `lis' and `recur'. I also removed the srfi-1 comment since this code is straightforward. (I keep such comments if there's something non-trivial that was taken.) --- collects/racket/list.rkt | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/collects/racket/list.rkt b/collects/racket/list.rkt index 1b6440beb6..8434509e2d 100644 --- a/collects/racket/list.rkt +++ b/collects/racket/list.rkt @@ -153,28 +153,28 @@ (cons (car list) (loop (cdr list) (cdr lead))) '()))) -;; taken from srfi-1 and tweaked -(define (take-while pred lis) +(define (take-while pred list) (unless (procedure? pred) - (raise-argument-error 'take-while "procedure?" 0 pred lis)) - (unless (list? lis) - (raise-argument-error 'take-while "list?" 1 pred lis)) - (let recur ([lis lis]) - (if (null? lis) '() - (let ([x (car lis)]) - (if (pred x) - (cons x (recur (cdr lis))) - '()))))) + (raise-argument-error 'take-while "procedure?" 0 pred list)) + (unless (list? list) + (raise-argument-error 'take-while "list?" 1 pred list)) + (let loop ([list list]) + (if (null? list) + '() + (let ([x (car list)]) + (if (pred x) + (cons x (loop (cdr list))) + '()))))) -(define (drop-while pred lis) +(define (drop-while pred list) (unless (procedure? pred) - (raise-argument-error 'drop-while "procedure?" 0 pred lis)) - (unless (list? lis) - (raise-argument-error 'drop-while "list?" 1 pred lis)) - (let recur ([lis lis]) - (cond [(null? lis) '()] - [(pred (car lis)) (recur (cdr lis))] - [else lis]))) + (raise-argument-error 'drop-while "procedure?" 0 pred list)) + (unless (list? list) + (raise-argument-error 'drop-while "list?" 1 pred list)) + (let loop ([list list]) + (cond [(null? list) '()] + [(pred (car list)) (loop (cdr list))] + [else list]))) (define (split-at-right list n) (unless (exact-nonnegative-integer? n)