build-path ( target astar -- path )

Vocabulary

path-finding.private

Inputs

target	an object
astar	an object

Outputs

path

an object

Definition

USING: accessors assocs kernel sequences ;

IN: path-finding.private

: build-path ( target astar -- path )
    [ over ] [ over [ [ origin>> at ] keep ] dip ] produce 2nip
    reverse ;