diff options
author | Gary Houston <ghouston@arglist.com> | 1996-10-06 06:31:43 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1996-10-06 06:31:43 +0000 |
commit | 52f4f4d6aa1250858e9fe7eaee77f7d5ab64f64a (patch) | |
tree | 412b9f0c5cda62720a1500ff746fcfc4f37b6d13 /libguile/filesys.c | |
parent | 87735856c864ffb811e812b5fe5c8341c86b5e87 (diff) | |
download | guile-52f4f4d6aa1250858e9fe7eaee77f7d5ab64f64a.tar.gz |
* filesys.c (scm_sys_select): move SCM_ALLOW_INTS past the sreturn
check.
(scm_init_filesys): set "i/o-extensions" feature.
include feature.h.
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r-- | libguile/filesys.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c index 425d70ca2..b0ef9bb81 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -42,6 +42,7 @@ #include "_scm.h" #include "genio.h" #include "smob.h" +#include "feature.h" #include "filesys.h" @@ -1082,9 +1083,9 @@ scm_sys_select (reads, writes, excepts, secs, msecs) SCM_DEFER_INTS; sreturn = select (SELECT_SET_SIZE, &read_set, &write_set, &except_set, time_p); - SCM_ALLOW_INTS; if (sreturn < 0) scm_syserror (s_sys_select); + SCM_ALLOW_INTS; return scm_listify (retrieve_select_type (&read_set, reads), retrieve_select_type (&write_set, writes), retrieve_select_type (&except_set, excepts), @@ -1254,6 +1255,7 @@ void scm_init_filesys () #endif { + scm_add_feature ("i/o-extensions"); /* File type/permission bits. */ #ifdef S_IRUSR scm_sysintern ("S_IRUSR", SCM_MAKINUM (S_IRUSR)); |