scsh-conservatory
/
scsh-make
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed rule-node/make analogously to make-rule.

This commit is contained in:
jottbee 2005-02-14 07:24:34 +00:00
parent b4382fa7b7
commit 727d9bdf0f
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
make-rule-no-cml.scm
View File

@ -45,14 +45,21 @@
(rule-make prereq init-state rule-set) (rule-make prereq init-state rule-set)
(error "prerequisite is not in rule-set!"))) (error "prerequisite is not in rule-set!")))
(rule-prereqs rule))) (rule-prereqs rule)))
(wants-build?-result (apply (rule-wants-build? rule) (wants-build?-result (if (null? prereqs-results)
(append pre-results (list init-state)))) ((rule-wants-build? rule) init-state)
(apply (rule-wants-build? rule)
(append prereqs-results
(list init-state)))))
(build-required? (car wants-build?-result)) (build-required? (car wants-build?-result))
(cooked-state (cdr wants-build?-result))) (cooked-state (cdr wants-build?-result)))
(if build-required? (if build-required?
(if (null? prereqs-results)
(make-rule-result wants-build?-result
((rule-build-func rule)
build-required? cooked-state))
(make-rule-result wants-build?-result (make-rule-result wants-build?-result
(apply (rule-build-func rule) (apply (rule-build-func rule)
(append (list build-required?) (append (list build-required?)
pre-results prereqs-results
(list cooked-state)))) (list cooked-state)))))
(make-rule-result wants-build?-result #f)))) (make-rule-result wants-build?-result #f))))