From 5cdd3f7b60bc1333a9bf6b687a75e55a6aa57d1c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 14 Aug 1997 13:26:53 +0000 Subject: [PATCH] release original commit: bb6f40f2e986d715b2ccd82e577a6de148bc694b --- collects/mzlib/functior.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss index 0bc20ec..003fe1a 100644 --- a/collects/mzlib/functior.ss +++ b/collects/mzlib/functior.ss @@ -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)