suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed union to or/c

Browse Source 
svn: r8747
This commit is contained in:
Robby Findler 2008-02-20 23:25:13 +00:00
parent f0efed2a3e
commit 9692473c62
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/async-channel.ss
View File

@ -152,7 +152,7 @@
(provide async-channel?) (provide async-channel?)
(provide/contract (make-async-channel (case-> (provide/contract (make-async-channel (case->
(-> async-channel?) (-> async-channel?)
((union false/c (lambda (x) ((or/c false/c (lambda (x)
(and (integer? x) (and (integer? x)
(exact? x) (exact? x)
(positive? x)))) (positive? x))))