write-item writes parts of xml, so add a method on xml objects to make it write their bodies without the prolog
parent
47d5c24597
commit
6cff5eb76f
|
@ -110,6 +110,9 @@ M: instruction write-item
|
||||||
[ after>> write-chunk ]
|
[ after>> write-chunk ]
|
||||||
} cleave ;
|
} cleave ;
|
||||||
|
|
||||||
|
M: xml write-item
|
||||||
|
body>> write-item ;
|
||||||
|
|
||||||
: print-xml ( xml -- )
|
: print-xml ( xml -- )
|
||||||
write-xml nl ;
|
write-xml nl ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue