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

xml-rpc: removing unnecessary union.

db4
John Benediktsson 2012-07-12 18:59:17 -07:00
parent 2d3f46acf4
commit 85a198e68e
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,8 +18,6 @@ M: integer item>xml
[ "Integers must fit in 32 bits" throw ] unless [ "Integers must fit in 32 bits" throw ] unless
[XML <i4><-></i4> XML] ; [XML <i4><-></i4> XML] ;
UNION: boolean t POSTPONE: f ;
M: boolean item>xml M: boolean item>xml
"1" "0" ? [XML <boolean><-></boolean> XML] ; "1" "0" ? [XML <boolean><-></boolean> XML] ;