Throw exception on stream error during close, or I/O operations. This

is needed for pipes that terminate abnormally or return failed
termination. Pipe and stdio streams have an extra description field
so they are printed in a readable way.

1 files changed, 2 insertions, 2 deletions

diff --git a/match.c b/match.c
index 15e98a08..0e70947b 100644
--- a/match.c
+++ b/match.c
@@ -683,9 +683,9 @@ obj_t *complex_snarf(fpip_t fp, obj_t *name)
 {
   switch (fp.close) {
   case fpip_fclose:
-    return lazy_stream_cons(make_stdio_stream(fp.f, t, nil));
+    return lazy_stream_cons(make_stdio_stream(fp.f, name, t, nil));
   case fpip_pclose:
-    return lazy_stream_cons(make_pipe_stream(fp.f, t, nil));
+    return lazy_stream_cons(make_pipe_stream(fp.f, name, t, nil));
   case fpip_closedir:
     return lazy_stream_cons(make_dir_stream(fp.d));
   }