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

Vocabulary

path-finding.private

Inputs

node	an object
astar	an object

Outputs

None

Definition

USING: accessors kernel sets ;

IN: path-finding.private

: ?add-to-open-set ( node astar -- )
    2dup astar>> in-closed-set>> in?
    [ 2drop ] [ add-to-open-set ] if ;