From d3f27488ed163a56f2ace9186fccdc60db11d22b Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 4 May 2018 16:56:45 +0100 Subject: [PATCH] Repair long-standing error in skeleton-walking. --- syndicate/skeleton.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/syndicate/skeleton.rkt b/syndicate/skeleton.rkt index 25fcabb..3a2958c 100644 --- a/syndicate/skeleton.rkt +++ b/syndicate/skeleton.rkt @@ -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))))