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)]
|
||||
[(list? term) (list->vector (cons '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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue