quoted? ( str -- ? )

Vocabulary

quoting

Inputs

str

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: quoting

: quoted? ( str -- ? )
    {
        [ length 1 > ]
        [ first quote? ]
        [ [ first ] [ last ] bi = ]
    } 1&& ;