token? ( obj -- ? )

Vocabulary

modern.out

Inputs

obj

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit sequences strings ;

IN: modern.out

: token? ( obj -- ? ) { [ slice? ] [ seq>> string? ] } 1&& ;