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

release

Browse Source 
original commit: bb6f40f2e986d715b2ccd82e577a6de148bc694b
This commit is contained in:
Matthew Flatt 1997-08-14 13:26:53 +00:00
parent 9611ece732
commit 5cdd3f7b60
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

@ -171,7 +171,7 @@
[(f init l) (fold-one f init l)] [(f init l) (fold-one f init l)]
[(f init l . ls) (fold-n f init (cons l ls))])))) [(f init l . ls) (fold-n f init (cons l ls))]))))
(define first (polymorphic car)) (define first (polymorphic (lambda (x) (car x))))
(define second (polymorphic cadr)) (define second (polymorphic cadr))
(define third (polymorphic caddr)) (define third (polymorphic caddr))
(define fourth (polymorphic cadddr)) (define fourth (polymorphic cadddr))
@ -180,7 +180,7 @@
(define seventh (polymorphic (compose fourth cdddr))) (define seventh (polymorphic (compose fourth cdddr)))
(define eighth (polymorphic (compose fourth cddddr))) (define eighth (polymorphic (compose fourth cddddr)))
(define rest (polymorphic cdr)) (define rest (polymorphic (lambda (x) (cdr x))))
(define build-string (define build-string
(lambda (n fcn) (lambda (n fcn)