false? --> false/c

original commit: e7480a643c55920c72f06e41ec983de83b042252
This commit is contained in:
Adam Wick 2004-10-19 20:00:54 +00:00
parent b1c4a712a8
commit b227a832d0

View File

@ -13,8 +13,8 @@
[imap-get-hierarchy-delimiter (imap-connection? . -> . bytes?)] [imap-get-hierarchy-delimiter (imap-connection? . -> . bytes?)]
[imap-list-child-mailboxes [imap-list-child-mailboxes
(case-> (case->
(imap-connection? (union false? bytes?) . -> . (listof (list/c (listof symbol?) bytes?))) (imap-connection? (union false/c bytes?) . -> . (listof (list/c (listof symbol?) bytes?)))
(imap-connection? (union false? bytes?) (union false? bytes?) (imap-connection? (union false/c bytes?) (union false/c bytes?)
. -> . . -> .
(listof (list/c (listof symbol?) bytes?))))]) (listof (list/c (listof symbol?) bytes?))))])