make-method-quot ( name effect -- quot )

Vocabulary

python.syntax.private

Inputs

name	an object
effect	an object

Outputs

quot

an object

Definition

USING: accessors kernel python.objects sequences ;

IN: python.syntax.private

: make-method-quot ( name effect -- quot )
    [ in>> rest gather-args-quot ] [ out>> unpack-value-quot ]
    bi swapd [
        [ [ rot ] compose ] dip
        [ getattr -rot call-object-full ] curry compose
    ] dip compose ;