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

release

Browse Source 
original commit: 5fe33a0a2cc83c9172f29a13a4050921efe169e2
This commit is contained in:
Matthew Flatt 1997-08-12 17:47:51 +00:00
parent 3b0857d638
commit 9611ece732
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/functior.ss
View File

@ -145,7 +145,7 @@
(map cdr l))]))))
(case-lambda
[(f init l) (fold-one f init l)]
[(f init . ls) (fold-n f init ls)]))))
[(f init l . ls) (fold-n f init (cons l ls))]))))
(define foldr
(polymorphic
@ -169,7 +169,7 @@
(fold-n f init (map cdr l))))]))))
(case-lambda
[(f init l) (fold-one f init l)]
[(f init . ls) (fold-n f init ls)]))))
[(f init l . ls) (fold-n f init (cons l ls))]))))
(define first (polymorphic car))
(define second (polymorphic cadr))