From 2d9d9e5fb0fe70a195a74fd7a3f32f4ff5d22bf0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 6 Nov 2009 16:34:30 -0800 Subject: 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. --- match.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'match.c') 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)); } -- cgit v1.2.3