define-specialized-cord ( T C -- )

Vocabulary

sequences.cords

Inputs

T	an object
C	an object

Outputs

None

Definition

USING: classes.mixin classes.parser classes.tuple
functors.backend functors.private generic generic.parser io
io.streams.string kernel namespaces present sequences words ;

IN: sequences.cords

:: define-specialized-cord ( T C -- )
    [ C present write ] with-string-writer create-class-in
    :> T-cord T-cord tuple
    { { "head" T read-only } { "tail" T read-only } }
    define-tuple-class* last-word make-final
    T-cord \ cord add-mixin-instance
    T \ cord-append create-method-in dup \ method set T{
    fake-quotation
        { seq
            {
                2dup
                T{ fake-quotation { seq ~array~ } }
                both?
                T{ fake-quotation { seq ~array~ } }
                T{ fake-quotation { seq ~array~ } }
                if
            }
        }
    } fake-quotations> first define* last-word make-inline ;