move-to-closed-set ( node astar -- )

Vocabulary

path-finding.private

Inputs

node	an object
astar	an object

Outputs

None

Definition

USING: accessors assocs kernel sets ;

IN: path-finding.private

: move-to-closed-set ( node astar -- )
    [ astar>> in-closed-set>> adjoin ]
    [ in-open-set>> delete-at ] 2bi ;