From 9f87e50086eb4a240e8c879484db0b216897ef03 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 21 Jul 2022 08:12:05 -0700 Subject: 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. --- stdlib/compiler.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stdlib') 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 -- cgit v1.2.3