log-euler-op ( class def inputs -- quot )

Vocabulary

gml.macros

Inputs

class	an object
def	an object
inputs	an object

Outputs

quot

an object

Definition

USING: generalizations kernel namespaces ;

IN: gml.macros

MACRO:: log-euler-op ( class def inputs -- quot )
    class inputs def inputs [
        [ [ boa save-euler-op ] curry ] dip [ ndrop ] curry
        [ [ [ current-macro get ] ] dip ] dip [ if ] 2curry
        compose
    ] 2dip [ nbi ] 3curry ;