Slight cleanup in xml-rpc

diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 9632cbb1acb9b9f8c771e530e4957ab5531163e5..690ebe94f8d6df6d40d40f9d310e355aa184c27a 100644 (file)
--- a/basis/xml-rpc/xml-rpc.factor
+++ b/basis/xml-rpc/xml-rpc.factor
@@ -126,11 +126,11 @@ TAG: int xml>item children>number ;
 TAG: double xml>item children>number ;
 
 TAG: boolean xml>item
-    dup children>string {
-        { [ dup "1" = ] [ 2drop t ] }
-        { [ "0" = ] [ drop f ] }
+    children>string {
+        { "1" [ t ] }
+        { "0" [ f ] }
         [ "Bad boolean" server-error ]
-    } cond ;
+    } case ;
 
 : unstruct-member ( tag -- )
     children-tags first2