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