Add back some special cases.

2012-08-07 15:35:27 -04:00 · 2012-08-07 15:35:27 -04:00 · 7eaae20f41
commit 7eaae20f41
parent 21598297a7
1 changed files with 10 additions and 2 deletions
--- a/collects/typed-racket/types/union.rkt
+++ b/collects/typed-racket/types/union.rkt
@ -34,9 +34,17 @@
    [(Union: es) es]
    [_ (list t)]))

+(define empty-union (make-Union null))
+
 ;; Union constructor
 ;; Normalizes representation by sorting types.
 ;; Type * -> Type
 ;; The input types can overlap and be union types
-(define (Un . args)
-  (make-union* (foldr merge '() (remove-dups (sort (append-map flat args) type<?)))))
+(define Un
+  (case-lambda 
+    [() empty-union]
+    [(t) t]
+    [args 
+     (define ts (foldr merge '()
+                       (remove-dups (sort (append-map flat args) type<?))))
+     (make-union* ts)]))