diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-02-08 21:39:02 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-02-08 21:39:02 -0800 |
commit | 25bf01699c2af7f8007404d5a62aeb1d64aee7b0 (patch) | |
tree | 2c5a153d99b4d65625b0abbfd68e495965219533 | |
parent | f85a58da998088496c3cb0d3370a35934646ade9 (diff) | |
download | txr-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.tl | 3 |
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))) |