Permalink
Browse files

Fix CTYP-82

async annotations
  • Loading branch information...
1 parent a502e2a commit 88a6e868ebc6f58362e089dfd4d5060e340c379c @frenchy64 frenchy64 committed Oct 6, 2013
Showing with 4 additions and 4 deletions.
  1. +2 −2 src/main/cljs/cljs/core/typed/async.cljs
  2. +2 −2 src/main/clojure/clojure/core/typed/async.clj
View
4 src/main/cljs/cljs/core/typed/async.cljs
@@ -134,8 +134,8 @@
(ann ^:no-check cljs.core.async/alts!!
(All [x d]
(Fn [(Seqable (U (Port x) '[(Port x) x])) (Seqable (Port x)) & :mandatory {:default d} :optional {:priority (U nil true)} ->
- (U '[d ':default] '[x (Port x)])]
- [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[x (Port x)]])))
+ (U '[d ':default] '[(U nil x) (Port x)])]
+ [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[(U nil x) (Port x)]])))
(ann ^:no-check cljs.core.async/close! [(ReadOnlyChan Any) -> nil])
View
4 src/main/clojure/clojure/core/typed/async.clj
@@ -136,8 +136,8 @@
(ann ^:no-check clojure.core.async/alts!!
(All [x d]
(Fn [(Seqable (U (Port x) '[(Port x) x])) (Seqable (Port x)) & :mandatory {:default d} :optional {:priority (U nil true)} ->
- (U '[d ':default] '[x (Port x)])]
- [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[x (Port x)]])))
+ (U '[d ':default] '[(U nil x) (Port x)])]
+ [(Seqable (U (Port x) '[(Port x) x])) & :optional {:priority (U nil true)} -> '[(U nil x) (Port x)]])))
(ann ^:no-check clojure.core.async/close! [(ReadOnlyChan Any) -> nil])

0 comments on commit 88a6e86

Please sign in to comment.