From cd4d38de19b8ec286c70992bdda1c85f265b9a07 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 8 Feb 2024 21:39:02 -0800 Subject: 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. --- stdlib/compiler.tl | 3 +-- 1 file changed, 1 insertion(+), 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))) -- cgit v1.2.3