From d58a39d8136ae0d3e740dea02637e667ea21cebc Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 20 Sep 2000 10:14:11 +0000
Subject: [PATCH] Small bug fixes.

---
 scsh/syscalls.scm | 2 +-
 scsh/syscalls1.c  | 2 +-
 scsh/syscalls1.h  | 4 +++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index 2fd2847..de093f7 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -104,7 +104,7 @@
 (define-stubless-foreign exit/errno ; errno -- misnomer.
   (status) "scsh_exit")
 
-(define-foreign %exit/errno ; errno -- misnomer
+(define-stubless-foreign %exit/errno ; errno -- misnomer
   (status) "scsh__exit")
 
 (define (%exit . maybe-status)
diff --git a/scsh/syscalls1.c b/scsh/syscalls1.c
index 6d1becd..f9f0a15 100644
--- a/scsh/syscalls1.c
+++ b/scsh/syscalls1.c
@@ -171,7 +171,7 @@ s48_value scsh_kill (s48_value pid, s48_value signal)
 s48_value scm_readlink(s48_value path)
 {
   char linkpath[MAXPATHLEN+1];
-  int retval = readlink(path, linkpath, MAXPATHLEN);
+  int retval = readlink(s48_extract_string (path), linkpath, MAXPATHLEN);
   if (retval == -1)
     s48_raise_os_error(errno);
   else
diff --git a/scsh/syscalls1.h b/scsh/syscalls1.h
index 6347bc7..c469384 100644
--- a/scsh/syscalls1.h
+++ b/scsh/syscalls1.h
@@ -14,12 +14,14 @@ s48_value scheme_pipe();
 
 s48_value scsh_kill (s48_value pid, s48_value signal);
 
-s48_value scm_readlink(const char *path, s48_value*);
+s48_value scm_readlink(s48_value path);
 
 int scm_utime(char const *path, time_t ac, time_t  mod);
 
 int scm_utime_now(char const *path);
 
+s48_value set_cloexec(s48_value _fd, s48_value _val);
+
 int scheme_cwd(const char **dirp);
 
 int process_times(clock_t *utime, clock_t *stime,