Remove dependency on unstable/port.

This commit is contained in:
Vincent St-Amour 2012-02-28 16:20:50 -05:00
parent ffcda4741f
commit 249c1cc666
2 changed files with 4 additions and 7 deletions

View File

@ -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)]))

View File

@ -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.