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
;