suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove apparently redundant use of multiple values from `stream-map'.

Browse Source
This commit is contained in:
Eli Barzilay 2012-07-10 22:52:18 -04:00
parent d6b296396b
commit 3028099eae
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/stream.rkt
View File

@ -114,10 +114,9 @@
(unless (procedure? f) (raise-argument-error 'stream-map "procedure?" f)) (unless (procedure? f) (raise-argument-error 'stream-map "procedure?" f))
(unless (stream? s) (raise-argument-error 'stream-map "stream?" s)) (unless (stream? s) (raise-argument-error 'stream-map "stream?" s))
(let loop ([s s]) (let loop ([s s])
(cond (if (stream-empty? s)
[(stream-empty? s) empty-stream] empty-stream
[else (stream-cons (call-with-values (lambda () (stream-first s)) f) (stream-cons (f (stream-first s)) (loop (stream-rest s))))))
(loop (stream-rest s)))])))
(define (stream-andmap f s) (define (stream-andmap f s)
(unless (procedure? f) (raise-argument-error 'stream-andmap "procedure?" f)) (unless (procedure? f) (raise-argument-error 'stream-andmap "procedure?" f))