set-file-group buglet

[Alan Bawden <Alan@lcs.mit.edu>]

`set-file-group' works much better with this patch.  You might also fix the
documentation for `set-file-group' so that it does not claim that you have
to be root in order to call it.

--- scsh-0.4.4/scsh/syscalls.scm.orig   Sun Nov  3 20:31:01 1996
+++ scsh-0.4.4/scsh/syscalls.scm        Sun Mar 30 01:50:17 1997
@@ -313,8 +313,8 @@
 (define-errno-syscall (set-file-group thing gid)
   (lambda (thing gid)
     (generic-file-op thing
-                    (lambda (fd)    (set-fdes-uid&gid/errno fd    gid -1))
-                    (lambda (fname) (set-file-uid&gid/errno fname gid -1)))))
+                    (lambda (fd)    (set-fdes-uid&gid/errno fd    -1 gid))
+                    (lambda (fname) (set-file-uid&gid/errno fname -1 gid)))))
 
 
 ;;; Uses real uid and gid, not effective. I don't use this anywhere.