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

Vocabulary

path-finding.private

Inputs

h	an object
node	an object
astar	an object

Outputs

None

Definition

USING: accessors assocs heaps kernel ;

IN: path-finding.private

: (add-to-open-set) ( h node astar -- )
    2dup in-open-set>> at*
    [ over open-set>> heap-delete ] [ drop ] if
    [ swapd open-set>> heap-push* ] [ in-open-set>> set-at ] 2bi
    ;