From b30a830c88490b742cb9791025aa68589f1bba34 Mon Sep 17 00:00:00 2001
From: 6cdh <39000776+6cdh@users.noreply.github.com>
Date: Sat, 14 May 2022 15:25:45 +0800
Subject: [PATCH] highlights(scheme): some fix (#2932)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* Add block comment
* Add λ highlight
---
 queries/scheme/highlights.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/queries/scheme/highlights.scm b/queries/scheme/highlights.scm
index 7798eff7c..4a7393eb0 100644
--- a/queries/scheme/highlights.scm
+++ b/queries/scheme/highlights.scm
@@ -6,7 +6,8 @@
 (character) @character
 (boolean) @boolean
 (string) @string
-(comment) @comment
+[(comment)
+ (block_comment)] @comment
 
 ;; highlight for datum comment
 ;; copied from ../clojure/highlights.scm
@@ -42,7 +43,7 @@
  .
  (list
    (symbol) @variable)
- (#eq? @_f "lambda"))
+ (#any-of? @_f "lambda" "λ"))
 
 (list
  .
@@ -64,7 +65,7 @@
 
 ((symbol) @keyword
  (#any-of? @keyword
-  "define" "lambda" "begin" "do" "define-syntax"
+  "define" "lambda" "λ" "begin" "do" "define-syntax"
   "and" "or"
   "if" "cond" "case" "when" "unless" "else" "=>"
   "let" "let*" "let-syntax" "let-values" "let*-values" "letrec" "letrec*" "letrec-syntax"