@ -4,6 +4,6 @@
(rule-set (rules->rule-set rules))
(target-rules (map (lambda (t) (lookup-rule t rules))
targets)))
(map rule-make
target-rules (circular-list init-state)
(circular-list rule-set)))))
(map (lambda (t)
(rule-make t init-state rule-set))
target-rules))))