From 89eb249b00c307f9ff8af3094d7292b3b9939146 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 8 Feb 2010 18:21:43 +0000 Subject: [PATCH] fix dumb typo svn: r18018 --- collects/typed-scheme/private/base-env.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index a7ca238d94..f049d6074a 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -37,7 +37,7 @@ [-> (-lst a) a]))] [cdddr (-poly (a b c d) (cl->* [->acc (list (-pair a (-pair b (-pair c d)))) d (list -cdr -cdr -cdr)] - [-> (-lst a) a]))] + [-> (-lst a) (-lst a)]))] [cadddr (-poly (a) (-> (-lst a) a))] [cddddr (-poly (a) (-> (-lst a) (-lst a)))]