USING: kernel sequences strings ;

IN: bootstrap.image.private

: emit-string ( string -- ptr )
[ length ] [ extended-part prepare-object ] [ ] tri string [
[ emit-fixnum ] [ emit ] [
f prepare-object emit
ascii-part pad-bytes emit-bytes
] tri*
] emit-object ;