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

Check exit status of fs sa

This commit is contained in:
Martin Gasbichler 2003-04-10 11:39:28 +00:00
parent d73f1b8c65
commit ee95a22e53
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/afs/afs-fs.scm
View File

@ -95,7 +95,8 @@
acl)) acl))
(define (set-acl! dir 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) (define (add-acl! dir acl)
(run (,fs setacl ,dir -acl ,@(acl->strings acl)))) (run (,fs setacl ,dir -acl ,@(acl->strings acl))))