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 ]
|
||||
} cleave ;
|
||||
|
||||
M: xml write-item
|
||||
body>> write-item ;
|
||||
|
||||
: print-xml ( xml -- )
|
||||
write-xml nl ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue