From ee95a22e53294582c452772485de1f2b3997414d Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Thu, 10 Apr 2003 11:39:28 +0000 Subject: [PATCH] Check exit status of fs sa --- scsh/afs/afs-fs.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scsh/afs/afs-fs.scm b/scsh/afs/afs-fs.scm index 2e72461..2d6b72a 100644 --- a/scsh/afs/afs-fs.scm +++ b/scsh/afs/afs-fs.scm @@ -95,7 +95,8 @@ acl)) (define (set-acl! dir acl) - (run (,fs setacl ,dir -acl ,@(acl->strings acl) -clear))) + (if (not (zero? (run (,fs setacl ,dir -acl ,@(acl->strings acl) -clear)))) + (error "set-acl!: error while setting ACL" dir acl))) (define (add-acl! dir acl) (run (,fs setacl ,dir -acl ,@(acl->strings acl))))