From 77373aa746c8a4b15ef5c15d62dfac710b817b0b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 20 Apr 2021 07:31:53 -0700 Subject: 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. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.2.3