summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-04-20 07:31:53 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-04-20 07:31:53 -0700
commit77373aa746c8a4b15ef5c15d62dfac710b817b0b (patch)
tree994456edcd50eed50be264f24b6c52b7f5dc4428
parent3ad496e4a6e1424e1a122ee280cdf4e0f2f24683 (diff)
downloadtxr-77373aa746c8a4b15ef5c15d62dfac710b817b0b.tar.gz
txr-77373aa746c8a4b15ef5c15d62dfac710b817b0b.tar.bz2
txr-77373aa746c8a4b15ef5c15d62dfac710b817b0b.zip
compile-file: fix bad diagnostic.
* share/txr/stdlib/compiler.tl (open-compile-streams): When the output file cannot be opened, the diagnostic message wrongly refers to the input stream object rather than the output file path.
-rw-r--r--share/txr/stdlib/compiler.tl2
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index e00004a2..88612e60 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -2180,7 +2180,7 @@
(unless out-stream
(close-stream in-stream)
- (error "~s: unable to open output file ~s" 'compile-file in-stream))
+ (error "~s: unable to open output file ~s" 'compile-file out-path))
(list in-stream out-stream out-path)))