duals>nweave ( n -- quot )

Vocabulary

math.dual.private

Inputs

n

an object

Outputs

quot

an object

Definition

USING: accessors generalizations kernel ;

IN: math.dual.private

MACRO: duals>nweave ( n -- quot )
    dup dup dup '[
        [ [ epsilon-part>> ] _ napply ] _ nkeep
        [ ordinary-part>> ] _ napply _ nweave
    ] ;