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 | cd4d38de19b8ec286c70992bdda1c85f265b9a07 (patch) | |
| tree | 2c5a153d99b4d65625b0abbfd68e495965219533 /stdlib/compiler.tl | |
| parent | 7e7b1c805d778280bfe1a8668b7d993bf00125e4 (diff) | |
| download | txr-cd4d38de19b8ec286c70992bdda1c85f265b9a07.tar.gz txr-cd4d38de19b8ec286c70992bdda1c85f265b9a07.tar.bz2 txr-cd4d38de19b8ec286c70992bdda1c85f265b9a07.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.
Diffstat (limited to 'stdlib/compiler.tl')
| -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))) |