changed rule-node/make analogously to make-rule.
This commit is contained in:
parent
b4382fa7b7
commit
727d9bdf0f
|
@ -45,14 +45,21 @@
|
|||
(rule-make prereq init-state rule-set)
|
||||
(error "prerequisite is not in rule-set!")))
|
||||
(rule-prereqs rule)))
|
||||
(wants-build?-result (apply (rule-wants-build? rule)
|
||||
(append pre-results (list init-state))))
|
||||
(wants-build?-result (if (null? prereqs-results)
|
||||
((rule-wants-build? rule) init-state)
|
||||
(apply (rule-wants-build? rule)
|
||||
(append prereqs-results
|
||||
(list init-state)))))
|
||||
(build-required? (car wants-build?-result))
|
||||
(cooked-state (cdr wants-build?-result)))
|
||||
(if build-required?
|
||||
(make-rule-result wants-build?-result
|
||||
(apply (rule-build-func rule)
|
||||
(append (list build-required?)
|
||||
pre-results
|
||||
(list cooked-state))))
|
||||
(if (null? prereqs-results)
|
||||
(make-rule-result wants-build?-result
|
||||
((rule-build-func rule)
|
||||
build-required? cooked-state))
|
||||
(make-rule-result wants-build?-result
|
||||
(apply (rule-build-func rule)
|
||||
(append (list build-required?)
|
||||
prereqs-results
|
||||
(list cooked-state)))))
|
||||
(make-rule-result wants-build?-result #f))))
|
||||
|
|
Loading…
Reference in New Issue