diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-07-21 08:12:05 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-07-21 08:12:05 -0700 |
| commit | 9f87e50086eb4a240e8c879484db0b216897ef03 (patch) | |
| tree | 6f72132b97653522c824faaebbb804c5225eb6b8 /stdlib | |
| parent | dd385954ec30b2dbdb8fe4dd6c7a5907cf752faa (diff) | |
| download | txr-9f87e50086eb4a240e8c879484db0b216897ef03.tar.gz txr-9f87e50086eb4a240e8c879484db0b216897ef03.tar.bz2 txr-9f87e50086eb4a240e8c879484db0b216897ef03.zip | |
compiler: try unsuffixed path before adding .tl
* stdlib/compiler.tl (open-compile-streams): If the in-path
is unsuffixed, try opening it without adding any suffix first.
If that fails, then try .tl in that order.
* txr.1: Documented.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 585712f9..c7ac6009 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2255,8 +2255,8 @@ (".txr" (error "~s: cannot compile TXR files" 'compile-file)) (".tl" (set in-stream (ignerr (open-file in-path)) out-path (or out-path `@{ip-nosuff}.tlo`))) - (t (set in-stream (or (ignerr (open-file `@{in-path}.tl`)) - (ignerr (open-file in-path))) + (t (set in-stream (or (ignerr (open-file in-path)) + (ignerr (open-file `@{in-path}.tl`))) out-path (or out-path `@{in-path}.tlo`)))) (unless in-stream |