diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-20 07:31:53 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-20 07:31:53 -0700 |
commit | 77373aa746c8a4b15ef5c15d62dfac710b817b0b (patch) | |
tree | 994456edcd50eed50be264f24b6c52b7f5dc4428 | |
parent | 3ad496e4a6e1424e1a122ee280cdf4e0f2f24683 (diff) | |
download | txr-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.tl | 2 |
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))) |