From 9692473c62fa51d746541ce9c2d12b6533f7808c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 20 Feb 2008 23:25:13 +0000 Subject: [PATCH] changed union to or/c svn: r8747 --- collects/scheme/async-channel.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/async-channel.ss b/collects/scheme/async-channel.ss index 79080675ce..2abae652e2 100644 --- a/collects/scheme/async-channel.ss +++ b/collects/scheme/async-channel.ss @@ -152,7 +152,7 @@ (provide async-channel?) (provide/contract (make-async-channel (case-> (-> async-channel?) - ((union false/c (lambda (x) + ((or/c false/c (lambda (x) (and (integer? x) (exact? x) (positive? x))))