diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-09 23:25:17 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-09 23:25:17 -0700 |
commit | 004bcff7d950b277378536a21ea9cba34edf6b03 (patch) | |
tree | 171578f129ac05ad9ce481dc7252bb37b4e4fcc6 | |
parent | 8d8fee2e506806d9c117b17432ef3a5ec0d6f457 (diff) | |
download | txr-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.tl | 3 |
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)) |