diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-12-04 22:45:03 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-12-04 22:45:03 +0100 |
| commit | 6d346bb61a2256515a969e4c4683dfa4a692c426 (patch) | |
| tree | d0723d310e71032abc7c6d7852f70e8bbbb625ed /libguile/poll.c | |
| parent | 8500b18696f5943049d769631b2abf309c98b3d2 (diff) | |
| download | guile-6d346bb61a2256515a969e4c4683dfa4a692c426.tar.gz | |
ice-9/poll: verify sizeof(struct pollfd)
* libguile/poll.c (scm_init_poll): Define %sizeof-struct-pollfd.
* module/ice-9/poll.scm: Check %sizeof-struct-pollfd.
Diffstat (limited to 'libguile/poll.c')
| -rw-r--r-- | libguile/poll.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/poll.c b/libguile/poll.c index d61d51979..1bb75727b 100644 --- a/libguile/poll.c +++ b/libguile/poll.c @@ -184,6 +184,7 @@ scm_init_poll (void) { #if HAVE_POLL scm_c_define_gsubr ("primitive-poll", 4, 0, 0, scm_primitive_poll); + scm_c_define ("%sizeof-struct-pollfd", scm_from_size_t (sizeof (struct pollfd))); #else scm_misc_error ("%init-poll", "`poll' unavailable on this platform", SCM_EOL); #endif |