fmaps ( W -- )

Vocabulary

models.combinators.templates

Inputs

W

an object

Outputs

None

Definition

USING: functors.backend functors.private io io.streams.string
kernel macros parser present sequences words ;

IN: models.combinators.templates

:: fmaps ( W -- )
    [ W present write ] with-string-writer parse-word :> W
    [ W present write "-n" write ] with-string-writer
    create-word-in :> w-n
    [ "2" write W present write ] with-string-writer
    create-word-in :> w-2
    [ "3" write W present write ] with-string-writer
    create-word-in :> w-3
    [ "4" write W present write ] with-string-writer
    create-word-in :> w-4
    [ W present write "-n*" write ] with-string-writer
    create-word-in :> w-n*
    [ "2" write W present write "*" write ] with-string-writer
    create-word-in :> w-2*
    [ "3" write W present write "*" write ] with-string-writer
    create-word-in :> w-3*
    [ "4" write W present write "*" write ] with-string-writer
    create-word-in :> w-4* w-n T{ fake-quotation
        { seq
            {
                dup
                T{ fake-quotation { seq ~array~ } }
                dip
                T{ fake-quotation { seq ~array~ } }
                curry
                T{ fake-quotation { seq ~array~ } }
                dip
                T{ fake-quotation { seq ~array~ } }
                curry
                compose
            }
        }
    } fake-quotations> first ( int -- quot ) define-macro w-2
    T{ fake-quotation { seq { 2 w-n } } } fake-quotations> first
    ( a b quot -- mapped ) define-declared*
    last-word make-inline w-3
    T{ fake-quotation { seq { 3 w-n } } } fake-quotations> first
    ( a b c quot -- mapped ) define-declared*
    last-word make-inline w-4
    T{ fake-quotation { seq { 4 w-n } } } fake-quotations> first
    ( a b c d quot -- mapped ) define-declared*
    last-word make-inline w-n* T{ fake-quotation
        { seq
            {
                dup
                T{ fake-quotation { seq ~array~ } }
                dip
                T{ fake-quotation { seq ~array~ } }
                curry
                T{ fake-quotation { seq ~array~ } }
                dip
                T{ fake-quotation { seq ~array~ } }
                curry
                compose
            }
        }
    } fake-quotations> first ( int -- quot ) define-macro w-2*
    T{ fake-quotation { seq { 2 w-n* } } } fake-quotations>
    first ( a b quot -- mapped ) define-declared*
    last-word make-inline w-3*
    T{ fake-quotation { seq { 3 w-n* } } } fake-quotations>
    first ( a b c quot -- mapped ) define-declared*
    last-word make-inline w-4*
    T{ fake-quotation { seq { 4 w-n* } } } fake-quotations>
    first ( a b c d quot -- mapped ) define-declared*
    last-word make-inline ;