From a366ccb1d360ad78a111b4b7fd2a9c6cdf1ac136 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 20 Feb 2008 23:27:17 +0000
Subject: [PATCH] changed union to or/c

svn: r8748

original commit: 5a0abb116e03c458bbf047805580458e3fe354b9
---
 collects/mrlib/name-message.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.ss
index d1b03f8a..44f7c0e5 100644
--- a/collects/mrlib/name-message.ss
+++ b/collects/mrlib/name-message.ss
@@ -10,7 +10,7 @@
  (pad-xywh (number? number? (>=/c 0) (>=/c 0) . -> . (values number? number? (>=/c 0) (>=/c 0))))
  (draw-button-label
   (->d ([dc (is-a?/c dc<%>)]
-        [label (union false/c string?)]
+        [label (or/c false/c string?)]
         [x number?]
         [y number?]
         [w (and/c number? (min-w h))]