removed union from scheme/contract

svn: r8745

collects/mzlib/contract.ss

@@ -78,4 +78,5 @@
          name-prop name-pred? name-get
          stronger-prop stronger-pred? stronger-get
          flat-prop flat-pred? flat-get
-         first-order-prop first-order-get)
+         first-order-prop first-order-get
+         (rename-out [or/c union]))

collects/scheme/contract.ss

@@ -173,7 +173,6 @@ differences from v3:
       flat-contract
       flat-contract-predicate
       object-contract
-      union
       listof
       is-a?/c)
   

collects/scheme/private/contract.ss

@@ -820,7 +820,7 @@ improve method arity mismatch contract violation error messages?
 
 (provide flat-rec-contract
          flat-murec-contract
-         or/c union
+         or/c
          not/c
          =/c >=/c <=/c </c >/c between/c
          integer-in
@@ -895,23 +895,6 @@ improve method arity mismatch contract violation error messages?
     [(_ ([name ctc ...] ...))
      (raise-syntax-error 'flat-rec-contract "expected at least one body expression" stx)]))
 
-(define-syntax (union stx)
-  (begin
-    #;
-    (fprintf (current-error-port)
-             "WARNING: union is deprecated, use or/c (file ~a~a)\n"
-             (let ([file (syntax-source stx)])
-               (if (path? file)
-                   (path->string file)
-                   (format "~s" file)))
-             (let ([line (syntax-line stx)])
-               (if (number? line)
-                   (format ", line ~a" line)
-                   "")))
-    (syntax-case stx ()
-      [(_ args ...) (syntax (or/c args ...))]
-      [id (syntax or/c)])))
-
 (define or/c
   (case-lambda 
     [() (make-none/c '(or/c))]