From 9324f5ea9084d8d46e7a872a063b9eb70346f5ff Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 28 May 2008 20:43:01 +0000 Subject: [PATCH] Add ternary for-each. svn: r10011 original commit: ddf289e1b4762dd405c5350259818afa85f47777 --- collects/typed-scheme/private/base-env.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 4d2f320d..37a06176 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -128,9 +128,10 @@ [((-> a b c) (-lst a) (-lst b)) (-lst c)] [((-> a b c d) (-lst a) (-lst b) (-lst c)) (-lst d)]))] [for-each - (-poly (a b c) + (-poly (a b c d) (cl-> [((-> a b) (-lst a)) -Void] - [((-> a b c) (-lst a) (-lst b)) -Void]))] + [((-> a b c) (-lst a) (-lst b)) -Void] + [((-> a b c d) (-lst a) (-lst b) (-lst c)) -Void]))] [foldl (-poly (a b c) (cl-> [((a b . -> . b) b (make-lst a)) b]