diff options
Diffstat (limited to 'appl/cmd/ar.b')
| -rw-r--r-- | appl/cmd/ar.b | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/appl/cmd/ar.b b/appl/cmd/ar.b index 8ef237b8..d82c9209 100644 --- a/appl/cmd/ar.b +++ b/appl/cmd/ar.b @@ -174,14 +174,15 @@ init(nil: ref Draw->Context, args: list of string) for(i = 0; args != nil; args = tl args) files[i++] = ref File(hd args, trim(hd args), 0); comfun(cp, files); # do the command + allfound := 1; for(i = 0; i < len files; i++) if(!files[i].found){ sys->fprint(stderr, "ar: %s not found\n", files[i].name); - cp = "error"; + allfound = 0; } bout.flush(); - if(cp != nil) - raise "fail:"+cp; + if(!allfound) + raise "fail: file not found"; } # |