finalize* ( node -- nodes )

Vocabulary

compiler.tree.finalization

Inputs

node

an object

Outputs

nodes

an object

Definition

IN: compiler.tree.finalization

GENERIC: finalize* ( node -- nodes )

Methods

USING: accessors compiler.tree compiler.tree.finalization kernel
;

M: #call finalize* dup word>> finalize-word ;


USING: compiler.tree compiler.tree.finalization kernel ;

M: #copy finalize* drop f ;


USING: accessors assocs combinators.short-circuit compiler.tree
compiler.tree.finalization kernel sequences ;

M: #shuffle finalize*
    dup {
        [ [ in-d>> length ] [ out-d>> length ] bi = ]
        [ [ in-r>> length ] [ out-r>> length ] bi = ]
        [
            [ in-d>> ] [ out-d>> ] [ mapping>> ] tri
            [ at = ] curry 2all?
        ]
        [
            [ in-r>> ] [ out-r>> ] [ mapping>> ] tri
            [ at = ] curry 2all?
        ]
    } 1&& [ drop f ] when ;


USING: compiler.tree compiler.tree.finalization ;

M: node finalize* ;