check-c-string ( string -- )

Vocabulary

alien.strings

Inputs

string

an object

Outputs

None

Definition

USING: kernel sequences ;

IN: alien.strings

: check-c-string ( string -- )
    0 over member-eq? [ invalid-c-string ] [ drop ] if ;