bugfix in make of incomplete

This commit is contained in:
aarne
2005-02-11 11:06:47 +00:00
parent 012d2dd0c4
commit b90332065c
2 changed files with 4 additions and 1 deletions

View File

@@ -4,6 +4,8 @@
concrete specUserSwe of specUser = specificSwe, genUserSwe ** {
flags startcat=DMove ;
lin
--- Answers in request list
vcr_add_rec_job_args4 chts wdts stts etts = {s =

View File

@@ -116,7 +116,8 @@ needCompile opts headers sfiles0 = paths $ res $ mark $ iter changed where
let us = uses f in
if not (all noComp us) then
fp else
if (elem (typ f) [MTyIncomplete, MTyIncResource] ||
if (elem (typ f) [] ---- MTyIncomplete, MTyIncResource]
||
(not (null us) && all isAux us)) then
(f,(p,CSDont)) else
fp