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

Small bug fixes.

This commit is contained in:
mainzelm 2000-09-20 10:14:11 +00:00
parent 5fc995e50f
commit d58a39d813
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/syscalls.scm
View File

@ -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)

2
scsh/syscalls1.c
View File

@ -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

4
scsh/syscalls1.h
View File

@ -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,