Switch another in-hash to hash-for-each
This commit is contained in:
parent
671e9742c7
commit
3c4076287e
|
@ -221,9 +221,10 @@
|
||||||
(define proj-handler (hash-ref key-proj-handler constants #f))
|
(define proj-handler (hash-ref key-proj-handler constants #f))
|
||||||
(when proj-handler
|
(when proj-handler
|
||||||
(modify-skconst! proj-handler term0)
|
(modify-skconst! proj-handler term0)
|
||||||
(for [((variable-proj acc) (in-hash (skeleton-matched-constant-table proj-handler)))]
|
(hash-for-each (skeleton-matched-constant-table proj-handler)
|
||||||
(define variables (apply-projection term0 variable-proj))
|
(lambda (variable-proj acc)
|
||||||
(modify-skacc! acc variables term0)))))
|
(define variables (apply-projection term0 variable-proj))
|
||||||
|
(modify-skacc! acc variables term0))))))
|
||||||
|
|
||||||
(for [(edge (in-list edges))]
|
(for [(edge (in-list edges))]
|
||||||
(match-define (cons (skeleton-selector pop-count index) table) edge)
|
(match-define (cons (skeleton-selector pop-count index) table) edge)
|
||||||
|
|
Loading…
Reference in New Issue