From 3c4076287e744066239c866ee2fd3855f12d3b1a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 30 Apr 2018 14:46:43 +0100 Subject: [PATCH] Switch another in-hash to hash-for-each --- syndicate/skeleton.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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)