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 | e051fd12d3428a72c99d8a8f67c75aeaeb6d8f8e (patch) | |
| tree | 994456edcd50eed50be264f24b6c52b7f5dc4428 | |
| parent | 3a69fa214599445422cc08f83a5d4f3a040258fb (diff) | |
| download | txr-e051fd12d3428a72c99d8a8f67c75aeaeb6d8f8e.tar.gz txr-e051fd12d3428a72c99d8a8f67c75aeaeb6d8f8e.tar.bz2 txr-e051fd12d3428a72c99d8a8f67c75aeaeb6d8f8e.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))) |