scsh-make/make.scm

11 lines
347 B
Scheme
Raw Normal View History

2005-03-07 12:37:46 -05:00
(define (make rules targets . maybe-args)
(let-optionals maybe-args ((pred string=?)
(init-state (list)))
(let* ((rule-set (rules->rule-set rules))
(target-rules (map (lambda (target)
(lookup-rule pred target rules))
targets)))
2005-02-14 02:35:46 -05:00
(map (lambda (t)
(rule-make t init-state rule-set))
target-rules))))