xml-rpc: removing unnecessary union.

diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 4c6570c4de9b6e9e0db90e699d5ea6f322966b02..89463b77a479d950636bc9bcf7e1be528f53f4be 100644 (file)
--- a/basis/xml-rpc/xml-rpc.factor
+++ b/basis/xml-rpc/xml-rpc.factor
@@ -18,8 +18,6 @@ M: integer item>xml
     [ "Integers must fit in 32 bits" throw ] unless
     [XML <i4><-></i4> XML] ;
 
-UNION: boolean t POSTPONE: f ;
-
 M: boolean item>xml
     "1" "0" ? [XML <boolean><-></boolean> XML] ;