summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/compiler.tl2
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index 790f730a..82450528 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -2173,7 +2173,7 @@
(path-cat (dir-name parent) in-path)
in-path))
(suff (short-suffix in-path))
- (ip-nosuff (trim-right in-path suff))
+ (ip-nosuff (trim-right suff in-path))
in-stream out-stream)
(casequal suff
(".txr" (error "~s: cannot compile TXR files" 'compile-file))