*** empty log message ***

[bpt/guile.git] / libguile / filesys.c

diff --git a/libguile/filesys.c b/libguile/filesys.c
index 5b23988..f2f35aa 100644 (file)
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -1225,7 +1225,7 @@ SCM_DEFINE (scm_select, "select", 3, 2, 0,
 
   /* if there's a port with a ready buffer, don't block, just
      check for ready file descriptors.  */
-  if (!SCM_NULLP (read_ports_ready) || !SCM_NULLP (write_ports_ready))
+  if (!scm_is_null (read_ports_ready) || !scm_is_null (write_ports_ready))
     {
       timeout.tv_sec = 0;
       timeout.tv_usec = 0;