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

fix in srfi/1

Browse Source 
Closes PR 13214
This commit is contained in:
Matthew Flatt 2012-10-29 07:31:54 -06:00
parent 93aea7036b
commit eb97b2f193
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/srfi/1/fold.rkt
View File

@ -54,7 +54,7 @@
(check-arg procedure? p 'unfold-right) (check-arg procedure? p 'unfold-right)
(check-arg procedure? f 'unfold-right) (check-arg procedure? f 'unfold-right)
(check-arg procedure? g 'unfold-right) (check-arg procedure? g 'unfold-right)
(let lp ((seed seed) (ans maybe-tail)) (let lp ((seed seed) (ans (if (pair? maybe-tail) (car maybe-tail) '())))
(if (p seed) ans (if (p seed) ans
(lp (g seed) (lp (g seed)
(cons (f seed) ans))))) (cons (f seed) ans)))))
@ -249,3 +249,9 @@
(recur (cdr lis)))))) (recur (cdr lis))))))
;;; fold.rkt ends here ;;; fold.rkt ends here
(module+ test
(define (test a b)
(unless (equal? a b) (error 'test "failed: ~e vs. ~e" a b)))
(test (unfold-right null? car cdr '(2 3) '(4 5))
'(3 2 4 5)))