single-char? ( character-type -- ? )

Vocabulary

alien.fortran.private

Inputs

character-type

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: alien.fortran.private

: single-char? ( character-type -- ? )
    {
        [ drop character(1)-maps-to-char? ]
        [ dims>> product 1 = ]
    } 1&& ;