diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-09-01 21:06:53 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-01 22:50:16 -0700 |
| commit | f9aa0087fa02bba51d030c7adb3d33929608e9ef (patch) | |
| tree | 44190350ca7cadc47a0688b136491faacd3a054f /stdlib | |
| parent | 04d32e9279c31a1308c4a3831ebd60cd56ca0a7f (diff) | |
| download | txr-f9aa0087fa02bba51d030c7adb3d33929608e9ef.tar.gz txr-f9aa0087fa02bba51d030c7adb3d33929608e9ef.tar.bz2 txr-f9aa0087fa02bba51d030c7adb3d33929608e9ef.zip | |
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.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |