summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2022-05-27 07:37:12 -0700
committerKaz Kylheku <kaz@kylheku.com>2022-05-27 07:37:12 -0700
commitb8aad5164c87d160cbdaa4f7090fa8145a252ab0 (patch)
tree2248b7d9ed5a6ca6fccb98767ca240ef76bae57b
parent33212c37aae3eeadba0a539f91184806bc2b89e8 (diff)
downloadtxr-b8aad5164c87d160cbdaa4f7090fa8145a252ab0.tar.gz
txr-b8aad5164c87d160cbdaa4f7090fa8145a252ab0.tar.bz2
txr-b8aad5164c87d160cbdaa4f7090fa8145a252ab0.zip
gzio: bugfix: just return descr for :name property.
* gzio.c (gzio_get_prop): Don't play games with a computed :name; this property is relied upon for getting the path associated with an open file.
-rw-r--r--gzio.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gzio.c b/gzio.c
index 4879ce0a..06f3a6ec 100644
--- a/gzio.c
+++ b/gzio.c
@@ -386,7 +386,7 @@ static val gzio_get_prop(val stream, val ind)
if (ind == name_k) {
struct strm_ops *ops = coerce(struct strm_ops *, stream->co.ops);
val name = static_str(ops->name);
- return format(nil, lit("~a ~a"), name, h->descr, nao);
+ return h->descr;
} else if (ind == byte_oriented_k) {
return h->is_byte_oriented ? t : nil;
}