xml-rpc: removing unnecessary union.

2012-07-12 18:59:17 -07:00 · 2012-07-12 18:59:17 -07:00 · 85a198e68e
parent 2d3f46acf4
commit 85a198e68e
1 changed files with 0 additions and 2 deletions
--- 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] ;