diff --git a/syndicate/skeleton.rkt b/syndicate/skeleton.rkt index aad57f9..0dc4516 100644 --- a/syndicate/skeleton.rkt +++ b/syndicate/skeleton.rkt @@ -221,9 +221,10 @@ (define proj-handler (hash-ref key-proj-handler constants #f)) (when proj-handler (modify-skconst! proj-handler term0) - (for [((variable-proj acc) (in-hash (skeleton-matched-constant-table proj-handler)))] - (define variables (apply-projection term0 variable-proj)) - (modify-skacc! acc variables term0))))) + (hash-for-each (skeleton-matched-constant-table proj-handler) + (lambda (variable-proj acc) + (define variables (apply-projection term0 variable-proj)) + (modify-skacc! acc variables term0)))))) (for [(edge (in-list edges))] (match-define (cons (skeleton-selector pop-count index) table) edge)