steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Slight cleanup in xml-rpc

db4
Daniel Ehrenberg 2009-02-09 18:36:36 -06:00
parent 1279d6e8ea
commit b5a96dccdf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/xml-rpc/xml-rpc.factor
View File

@ -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