Unnamed repository; edit this file 'description' to name the repository.
mark arguments of case-lambda as variable, mark case-lambda as keyword (#14386)
| -rw-r--r-- | runtime/queries/scheme/highlights.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/runtime/queries/scheme/highlights.scm b/runtime/queries/scheme/highlights.scm index 71bad076..2f924325 100644 --- a/runtime/queries/scheme/highlights.scm +++ b/runtime/queries/scheme/highlights.scm @@ -51,6 +51,15 @@ (list . (symbol) @_f + (list + . + (list + (symbol) @variable)) + (#eq? @_f "case-lambda")) + +(list + . + (symbol) @_f . (list (list @@ -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 |