From 55b0bc0011ddae9df99d50fa0498110585d09a81 Mon Sep 17 00:00:00 2001
From: forsyth <forsyth@vitanuova.com>
Date: Thu, 19 Aug 2010 18:09:32 +0100
Subject: 20100819-1809

---
 appl/cmd/ar.b |   7 ++++---
 dis/ar.dis    | Bin 10395 -> 10456 bytes
 2 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";
 }
 
 #
diff --git a/dis/ar.dis b/dis/ar.dis
index 0c8193b5..0143035d 100644
Binary files a/dis/ar.dis and b/dis/ar.dis differ
-- 
cgit v1.2.3