binary-roman-op ( quot -- quot' )

Vocabulary

roman.private

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: combinators.smart generalizations kernel roman ;

IN: roman.private

MACRO: binary-roman-op ( quot -- quot' )
    [ inputs ] [ ] [ outputs ] tri [
        [ [ [ [ roman> ] ] ] dip [ napply ] curry compose ] dip
        [ [ >roman ] ] compose compose
    ] dip [ napply ] curry compose ;