set-g ( origin g node astar -- )

Vocabulary

path-finding.private

Inputs

origin	an object
g	an object
node	an object
astar	an object

Outputs

None

Definition

USING: accessors assocs kernel ;

IN: path-finding.private

: set-g ( origin g node astar -- )
    [
        [ origin>> set-at ] [ astar>> g>> set-at ] bi-curry
        bi-curry bi*
    ] [ ?add-to-open-set ] 2bi ;