>value ( obj -- string )

Vocabulary

modern.html

Inputs

obj

an object

Outputs

string

an object

Definition

USING: accessors combinators kernel sequences ;

IN: modern.html

: >value ( obj -- string )
    {
        { [ dup squote? ] [ payload>> "'" 1surround ] }
        { [ dup dquote? ] [ payload>> "\"" 1surround ] }
        [ ]
    } cond ;