mark arguments of case-lambda as variable, mark case-lambda as keyword (#14386)

This commit is contained in:
may
2025-09-04 16:08:20 +02:00
committed by GitHub
parent d63c2d2fea
commit f59dc9e48f

View File

@@ -48,6 +48,15 @@
(symbol) @variable)
(#any-of? @_f "lambda" "λ"))
(list
.
(symbol) @_f
(list
.
(list
(symbol) @variable))
(#eq? @_f "case-lambda"))
(list
.
(symbol) @_f
@@ -92,7 +101,7 @@
.
(symbol) @keyword
(#match? @keyword
"^(define-syntax|let\\*|lambda|λ|case|=>|quote-splicing|unquote-splicing|set!|let|letrec|letrec-syntax|let-values|let\\*-values|do|else|define|cond|syntax-rules|unquote|begin|quote|let-syntax|and|if|quasiquote|letrec|delay|or|when|unless|identifier-syntax|assert|library|export|import|rename|only|except|prefix)$"
"^(define-syntax|let\\*|lambda|λ|case-lambda|case|=>|quote-splicing|unquote-splicing|set!|let|letrec|letrec-syntax|let-values|let\\*-values|do|else|define|cond|syntax-rules|unquote|begin|quote|let-syntax|and|if|quasiquote|letrec|delay|or|when|unless|identifier-syntax|assert|library|export|import|rename|only|except|prefix)$"
))
(list