Small bug fixes.
This commit is contained in:
parent
5fc995e50f
commit
d58a39d813
|
@ -104,7 +104,7 @@
|
||||||
(define-stubless-foreign exit/errno ; errno -- misnomer.
|
(define-stubless-foreign exit/errno ; errno -- misnomer.
|
||||||
(status) "scsh_exit")
|
(status) "scsh_exit")
|
||||||
|
|
||||||
(define-foreign %exit/errno ; errno -- misnomer
|
(define-stubless-foreign %exit/errno ; errno -- misnomer
|
||||||
(status) "scsh__exit")
|
(status) "scsh__exit")
|
||||||
|
|
||||||
(define (%exit . maybe-status)
|
(define (%exit . maybe-status)
|
||||||
|
|
|
@ -171,7 +171,7 @@ s48_value scsh_kill (s48_value pid, s48_value signal)
|
||||||
s48_value scm_readlink(s48_value path)
|
s48_value scm_readlink(s48_value path)
|
||||||
{
|
{
|
||||||
char linkpath[MAXPATHLEN+1];
|
char linkpath[MAXPATHLEN+1];
|
||||||
int retval = readlink(path, linkpath, MAXPATHLEN);
|
int retval = readlink(s48_extract_string (path), linkpath, MAXPATHLEN);
|
||||||
if (retval == -1)
|
if (retval == -1)
|
||||||
s48_raise_os_error(errno);
|
s48_raise_os_error(errno);
|
||||||
else
|
else
|
||||||
|
|
|
@ -14,12 +14,14 @@ s48_value scheme_pipe();
|
||||||
|
|
||||||
s48_value scsh_kill (s48_value pid, s48_value signal);
|
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(char const *path, time_t ac, time_t mod);
|
||||||
|
|
||||||
int scm_utime_now(char const *path);
|
int scm_utime_now(char const *path);
|
||||||
|
|
||||||
|
s48_value set_cloexec(s48_value _fd, s48_value _val);
|
||||||
|
|
||||||
int scheme_cwd(const char **dirp);
|
int scheme_cwd(const char **dirp);
|
||||||
|
|
||||||
int process_times(clock_t *utime, clock_t *stime,
|
int process_times(clock_t *utime, clock_t *stime,
|
||||||
|
|
Loading…
Reference in New Issue