get-first ( astar -- node )

Vocabulary

path-finding.private

Inputs

astar

an object

Outputs

node

an object

Definition

USING: accessors heaps kernel ;

IN: path-finding.private

: get-first ( astar -- node )
    [ open-set>> heap-pop drop dup ] [ move-to-closed-set ] bi ;