From 1f15e359254e6cf33dfea689f38a9bf4110c8b37 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sun, 15 Jun 2008 15:56:44 -0400 Subject: [PATCH] I don't see how this isn't a bug. original commit: 14da71b5c240b248d97be77ffd4c220af3ef6146 --- collects/typed-scheme/private/type-effect-convenience.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/type-effect-convenience.ss b/collects/typed-scheme/private/type-effect-convenience.ss index 73c11ef9..22205b8d 100644 --- a/collects/typed-scheme/private/type-effect-convenience.ss +++ b/collects/typed-scheme/private/type-effect-convenience.ss @@ -41,7 +41,7 @@ [(_ dom ... rng) (->* (list dom ...) rng)] [(_ dom ... rng : eff1 eff2) - (->* (list dom ...) : eff1 eff2)])) + (->* (list dom ...) rng : eff1 eff2)])) (define-syntax ->* (syntax-rules (:) [(_ dom rng)