From f9aa0087fa02bba51d030c7adb3d33929608e9ef Mon Sep 17 00:00:00 2001 From: "Paul A. Patience" Date: Wed, 1 Sep 2021 21:06:53 -0400 Subject: compiler: fix output path of compiled files. The open-compile-streams function was calling trim-right with the arguments in the wrong order, resulting in an output path equal to the suffix of the input path. Regression introduced in 8d8fee2e506806d9c117b17432ef3a5ec0d6f457. * stdlib/compiler.tl (open-compile-streams): Swap in-path and suff arguments in trim-right call. --- stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stdlib/compiler.tl') diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 790f730a..82450528 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2173,7 +2173,7 @@ (path-cat (dir-name parent) in-path) in-path)) (suff (short-suffix in-path)) - (ip-nosuff (trim-right in-path suff)) + (ip-nosuff (trim-right suff in-path)) in-stream out-stream) (casequal suff (".txr" (error "~s: cannot compile TXR files" 'compile-file)) -- cgit v1.2.3