add-to-open-set ( node astar -- )

Vocabulary

path-finding.private

Inputs

node	an object
astar	an object

Outputs

None

Definition

USING: accessors assocs kernel math path-finding ;

IN: path-finding.private

: add-to-open-set ( node astar -- )
    [ astar>> g>> at ] 2keep
    [ [ goal>> ] [ astar>> heuristic ] bi + ] 2keep
    (add-to-open-set) ;