Repair long-standing error in skeleton-walking.
This commit is contained in:
parent
000fa3c008
commit
d3f27488ed
|
@ -274,7 +274,7 @@
|
||||||
(cond [(non-object-struct? term) (struct->vector term)]
|
(cond [(non-object-struct? term) (struct->vector term)]
|
||||||
[(list? term) (list->vector (cons 'list term))]
|
[(list? term) (list->vector (cons 'list term))]
|
||||||
[(vector? term) (list->vector (cons 'list (vector->list term)))]))
|
[(vector? term) (list->vector (cons 'list (vector->list term)))]))
|
||||||
(walk-node! entry (cons new-pieces term-stack)))))
|
(walk-node! entry (cons new-pieces popped-stack)))))
|
||||||
|
|
||||||
(walk-node! sk (list (vector 'list term0-term))))
|
(walk-node! sk (list (vector 'list term0-term))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue