syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Repair long-standing error in skeleton-walking.

This commit is contained in:
Tony Garnock-Jones 2018-05-04 16:56:45 +01:00
parent 000fa3c008
commit d3f27488ed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
syndicate/skeleton.rkt
View File

@ -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))))