From 004bcff7d950b277378536a21ea9cba34edf6b03 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 9 Jul 2021 23:25:17 -0700 Subject: compiler: remove case of ad-hoc path catenation. * compiler.tl (open-compile-streams): Use path-cat instead of quasiliteral. --- stdlib/compiler.tl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index deb0397f..0e8d8fe3 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2166,10 +2166,9 @@ (defun open-compile-streams (in-path out-path test-fn) (let* ((parent (or *load-path* "")) - (sep [path-sep-chars 0]) (in-path (trim-right #/[\/\\]+/ in-path)) (in-path (if (and (pure-rel-path-p in-path) (not (empty parent))) - `@(dir-name parent)@sep@{in-path}` + (path-cat (dir-name parent) in-path) in-path)) (suff (short-suffix in-path)) (ip-nosuff (trim-right in-path suff)) -- cgit v1.2.3