I don't see how this isn't a bug.

original commit: 14da71b5c240b248d97be77ffd4c220af3ef6146
2008-06-15 15:56:44 -04:00 · 2008-06-15 15:56:44 -04:00 · 1f15e35925
commit 1f15e35925
parent 459a5f8f8e
1 changed files with 1 additions and 1 deletions
--- 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)