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

.

Browse Source 
original commit: 8c1b4f5517915b781bb81a4b4971fc8644b378cc
This commit is contained in:
Matthew Flatt 2000-01-27 22:05:37 +00:00
parent c5cfbb67a7
commit a5fd6626d4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mzlib/functior.ss
View File

@ -219,13 +219,13 @@
(unless (pair? x)
(raise-type-error 'first "non-empty list" x))
(car x))))
(define second (polymorphic cadr))
(define third (polymorphic caddr))
(define fourth (polymorphic cadddr))
(define fifth (polymorphic (compose fourth cdr)))
(define sixth (polymorphic (compose fourth cddr)))
(define seventh (polymorphic (compose fourth cdddr)))
(define eighth (polymorphic (compose fourth cddddr)))
(define second (polymorphic (lambda (x) (cadr x))))
(define third (polymorphic (lambda (x) (caddr x))))
(define fourth (polymorphic (lambda (x) (cadddr x))))
(define fifth (polymorphic (lambda (x) (fourth (cdr x)))))
(define sixth (polymorphic (lambda (x) (fourth (cddr x)))))
(define seventh (polymorphic (lambda (x) (fourth (cdddr x)))))
(define eighth (polymorphic (lambda (x) (fourth (cddddr x)))))
(define rest (polymorphic (lambda (x)
(unless (pair? x)