Remove dependency on unstable/port.
This commit is contained in:
parent
ffcda4741f
commit
249c1cc666
|
@ -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)]))
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue
Block a user