From 9611ece7323268bcb8371677068cda8bafd5771d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 12 Aug 1997 17:47:51 +0000 Subject: [PATCH] release original commit: 5fe33a0a2cc83c9172f29a13a4050921efe169e2 --- 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 4749237..0bc20ec 100644 --- a/collects/mzlib/functior.ss +++ b/collects/mzlib/functior.ss @@ -145,7 +145,7 @@ (map cdr l))])))) (case-lambda [(f init l) (fold-one f init l)] - [(f init . ls) (fold-n f init ls)])))) + [(f init l . ls) (fold-n f init (cons l ls))])))) (define foldr (polymorphic @@ -169,7 +169,7 @@ (fold-n f init (map cdr l))))])))) (case-lambda [(f init l) (fold-one f init l)] - [(f init . ls) (fold-n f init ls)])))) + [(f init l . ls) (fold-n f init (cons l ls))])))) (define first (polymorphic car)) (define second (polymorphic cadr))