From a5fd6626d4404edae51432a335596b0000f6dcd4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 27 Jan 2000 22:05:37 +0000 Subject: [PATCH] . original commit: 8c1b4f5517915b781bb81a4b4971fc8644b378cc --- collects/mzlib/functior.ss | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss index 3f0aeb7..6c0bccd 100644 --- a/collects/mzlib/functior.ss +++ b/collects/mzlib/functior.ss @@ -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)