?set-g ( origin node astar -- )

Vocabulary

path-finding.private

Inputs

origin	an object
node	an object
astar	an object

Outputs

None

Definition

USING: accessors assocs kernel math ;

IN: path-finding.private

: ?set-g ( origin node astar -- )
    [ cost-through ] 3keep [ swap ] 2dip 3dup astar>> g>> at
    [ 1/0. ] unless* >= [ 4drop ] [ set-g ] if ;