From d0fef5a49cbce1088c3cfbc3c33c48e1c03bc839 Mon Sep 17 00:00:00 2001 From: bdc Date: Mon, 4 Nov 1996 01:31:01 +0000 Subject: [PATCH] fix for sunos 4.x build error because of non-standard declarations of setgid and setguid --- scsh/syscalls.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm index c664e05..cd852cb 100644 --- a/scsh/syscalls.scm +++ b/scsh/syscalls.scm @@ -164,7 +164,7 @@ (define-foreign user-gid (getgid) gid_t) (define-foreign user-effective-gid (getegid) gid_t) -(define-foreign set-gid/errno (setgid (gid_t id)) +(define-foreign set-gid/errno (setgid (gid_t id)) no-declare ; for SunOS 4.x (to-scheme integer errno_or_false)) (define-errno-syscall (set-gid gid) set-gid/errno) @@ -191,7 +191,7 @@ (define-foreign user-uid (getuid) uid_t) (define-foreign user-effective-uid (geteuid) uid_t) -(define-foreign set-uid/errno (setuid (uid_t id)) +(define-foreign set-uid/errno (setuid (uid_t id)) no-declare ; for SunOS 4.x (to-scheme integer errno_or_false)) (define-errno-syscall (set-uid uid_t) set-uid/errno)