From 46244f81fc4f86a7ea2514dddd006dc848d56cd9 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Sun, 28 Nov 2010 23:07:51 -0700
Subject: [PATCH] make set-union with 0 args return an empty set

---
 collects/racket/set.rkt        | 1 +
 collects/tests/racket/set.rktl | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/collects/racket/set.rkt b/collects/racket/set.rkt
index 4da3d4b8fa..0294a33570 100644
--- a/collects/racket/set.rkt
+++ b/collects/racket/set.rkt
@@ -111,6 +111,7 @@
 
 (define set-union
   (case-lambda
+   [() (set)]
    [(set) 
     (unless (set? set) (raise-type-error 'set-union "set" 0 set))
     set]
diff --git a/collects/tests/racket/set.rktl b/collects/tests/racket/set.rktl
index bb91761c34..e8bd33675a 100644
--- a/collects/tests/racket/set.rktl
+++ b/collects/tests/racket/set.rktl
@@ -17,6 +17,8 @@
 (test #t set-empty? (seteqv))
 (test #t set? (seteqv 1 2 3))
 (test #f set-empty? (seteqv 1 2 3))
+(test #t set? (set-union))
+(test #t set-empty? (set-union))
 
 (test #f set-eq? (set 1 2 3))
 (test #f set-eqv? (set 1 2 3))