From 249c1cc6664213b7aec31636517690e605a8cfae Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 28 Feb 2012 16:20:50 -0500 Subject: [PATCH] Remove dependency on unstable/port. --- collects/racket/list.rkt | 10 +++------- collects/scribblings/reference/pairs.scrbl | 1 + 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/collects/racket/list.rkt b/collects/racket/list.rkt index ad085a9fa2..e1d6b7e81a 100644 --- a/collects/racket/list.rkt +++ b/collects/racket/list.rkt @@ -367,10 +367,6 @@ ;; similar to in-range, but returns a list (define range (case-lambda - [(end) (range 0 end 1)] - [(start end) (range start end 1)] - [(start end step) - (unless (real? start) (raise-type-error 'range "real-number" start)) - (unless (real? end) (raise-type-error 'range "real-number" end)) - (unless (real? step) (raise-type-error 'range "real-number" step)) - (for/list ([i (in-range start end step)]) i)])) + [(end) (for/list ([i (in-range end)]) i)] + [(start end) (for/list ([i (in-range start end)]) i)] + [(start end step) (for/list ([i (in-range start end step)]) i)])) diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl index 23131bfa39..60529e57bc 100644 --- a/collects/scribblings/reference/pairs.scrbl +++ b/collects/scribblings/reference/pairs.scrbl @@ -1014,6 +1014,7 @@ the result of @racket[proc]. Signals an error on an empty list. @defproc*[([(range [end real?]) list?] [(range [start real?] [end real?] [step real? 1]) list?])]{ + Similar to @racket[in-range], but returns lists. Returns a list of numbers starting at @racket[start] and whose successive elements are computed by adding @racket[step] to their predecessor until @racket[end] (excluded) is reached.