From be1efb383fe699feeb4b4aac2ecac0ec300585c0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 31 Jan 2006 19:17:33 +0000
Subject: [PATCH] updated many unions to or/c's

svn: r2061

original commit: fddb1fa862b6e0e8e71f011dcdda5309e64635e1
---
 collects/mzlib/port.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index bc072e2..a15c128 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -64,7 +64,7 @@
 		    (peek-string-evt (exact-non-negative-integer? exact-non-negative-integer? evt?/false
 								  input-port-with-progress-evts? 
 								  . -> . evt?))
-		    (regexp-match-evt ((union regexp? byte-regexp? string? bytes?)
+		    (regexp-match-evt ((or/c regexp? byte-regexp? string? bytes?)
 				       input-port-with-progress-evts? 
 				       . -> . evt?))