emit-string ( string -- ptr )

Vocabulary

bootstrap.image.private

Inputs

string

an object

Outputs

ptr

an object

Definition

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 ;