summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1996-10-06 06:31:43 +0000
committerGary Houston <ghouston@arglist.com>1996-10-06 06:31:43 +0000
commit52f4f4d6aa1250858e9fe7eaee77f7d5ab64f64a (patch)
tree412b9f0c5cda62720a1500ff746fcfc4f37b6d13 /libguile/filesys.c
parent87735856c864ffb811e812b5fe5c8341c86b5e87 (diff)
downloadguile-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.c4
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));