From 85a198e68ef95c9ddc404d69533a5875b00b2ccd Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 12 Jul 2012 18:59:17 -0700
Subject: [PATCH] xml-rpc: removing unnecessary union.
---
basis/xml-rpc/xml-rpc.factor | 2 --
1 file changed, 2 deletions(-)
diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 4c6570c4de..89463b77a4 100644
--- 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] ;