|
|
@ -69,11 +69,10 @@
|
|
|
|
|
|
|
|
|
|
|
|
(define/public (path)
|
|
|
|
(define/public (path)
|
|
|
|
;; Create a list of nodes from the root to this node.
|
|
|
|
;; Create a list of nodes from the root to this node.
|
|
|
|
(let ([parent (get-field parent this)])
|
|
|
|
(define parent (get-field parent this))
|
|
|
|
(cons this
|
|
|
|
(cons this (if (not parent)
|
|
|
|
(if (not parent)
|
|
|
|
null
|
|
|
|
null
|
|
|
|
(send parent path))))
|
|
|
|
(send parent path)))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define/public (expand problem)
|
|
|
|
(define/public (expand problem)
|
|
|
|
;; Return a list of nodes reachable from this node.
|
|
|
|
;; Return a list of nodes reachable from this node.
|
|
|
|