streams: a few close funtions should return t.

* socket.c (dgram_close): Return t when a
descriptor is closed, returning nil only when
the object is already in a closed state.

* stream.c (dev_null_close, dir_close): Likewise.

2 files changed, 4 insertions, 1 deletions

diff --git a/socket.c b/socket.c
index 92216ab2..9ff0a67f 100644
--- a/socket.c
+++ b/socket.c
@@ -567,9 +567,10 @@ static val dgram_close(val stream, val throw_on_error)
     close(d->fd);
     d->fd = -1;
     d->err = 0;
+    return t;
   }
 
-  return t;
+  return nil;
 }
 
 static val dgram_get_prop(val stream, val ind)
diff --git a/stream.c b/stream.c
index f25de90c..4c112052 100644
--- a/stream.c
+++ b/stream.c
@@ -459,6 +459,7 @@ static val dev_null_close(val stream, val throw_on_error)
   if (n->fd != -1) {
     close(n->fd);
     n->fd = -1;
+    return t;
   }
   return nil;
 }
@@ -1847,6 +1848,7 @@ static val dir_close(val stream, val throw_on_error)
   if (h->d != 0) {
     closedir(coerce(DIR *, h->d));
     h->d = 0;
+    return t;
   }
 
   return nil;