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

Switch another in-hash to hash-for-each

This commit is contained in:
Tony Garnock-Jones 2018-04-30 14:46:43 +01:00
parent 671e9742c7
commit 3c4076287e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
syndicate/skeleton.rkt
View File

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