summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2024-02-08 21:39:02 -0800
committerKaz Kylheku <kaz@kylheku.com>2024-02-08 21:39:02 -0800
commit25bf01699c2af7f8007404d5a62aeb1d64aee7b0 (patch)
tree2c5a153d99b4d65625b0abbfd68e495965219533
parentf85a58da998088496c3cb0d3370a35934646ade9 (diff)
downloadtxr-25bf01699c2af7f8007404d5a62aeb1d64aee7b0.tar.gz
txr-25bf01699c2af7f8007404d5a62aeb1d64aee7b0.tar.bz2
txr-25bf01699c2af7f8007404d5a62aeb1d64aee7b0.zip
compiler: take advantage of fixed @(end) match.
* stdlib/compiler.tl (simplify-variadic-lambda): Remove work-around where two patterns are combined with or, expressing it the way it wants to be.
-rw-r--r--stdlib/compiler.tl3
1 files changed, 1 insertions, 2 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index e722cf41..28e9cb96 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -2304,8 +2304,7 @@
lm-expr)))))
(defun simplify-variadic-lambda (form)
- (if-match @(require (lambda @(and @params @(or @(end (@nil . @rest))
- @rest))
+ (if-match @(require (lambda @(and @params @(end @rest))
[sys:apply . @args])
rest
(eq 1 (count rest (flatten args)))