summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-07-09 23:25:17 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-07-09 23:25:17 -0700
commit004bcff7d950b277378536a21ea9cba34edf6b03 (patch)
tree171578f129ac05ad9ce481dc7252bb37b4e4fcc6
parent8d8fee2e506806d9c117b17432ef3a5ec0d6f457 (diff)
downloadtxr-004bcff7d950b277378536a21ea9cba34edf6b03.tar.gz
txr-004bcff7d950b277378536a21ea9cba34edf6b03.tar.bz2
txr-004bcff7d950b277378536a21ea9cba34edf6b03.zip
compiler: remove case of ad-hoc path catenation.
* compiler.tl (open-compile-streams): Use path-cat instead of quasiliteral.
-rw-r--r--stdlib/compiler.tl3
1 files changed, 1 insertions, 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))