check-string ( string -- )


Vocabulary
alien.strings

Definition
USING: kernel sequences ;

IN: alien.strings

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