tightened heuristics

Author: mkatychev

lib/linguist/heuristics.yml

@@ -717,21 +717,20 @@ disambiguations:
 - extensions: ['.scm']
   rules:
   - language: Scheme
-    pattern:
-    - '(?:''[\(\*#]|\w->\w|\.\.\.[\s\)]|\([+\-:<>\/=~\)]|~>|\s:\w|#\()|#:\w'
-    - '^\s*\((?:define|import|library|lambda)'
-    negative_pattern:
+  - pattern:
+    - '(?:''[\(\*#]|\w->\w|\.\.\.[\s\)]|\([+\-:<>\/=~\)]|~>|[#`]\(|#:\w)'
+    - '^\s*\((?:define\*?|import|library|lambda)'
+  - negative_pattern:
     - '\(#[\w-]+[!\?]'
-    - '[\)\]"_]\s+[\*\+\?@]'
+    - '[\)\]"_]\s+(?:[\*\+\?]|@\w)'
   - language: Tree-sitter Query
     pattern:
     - '\(#[\w-]+[!\?]'
-    - '[\)\]"_]\s+[\*\+\?@]'
+    - '[\)\]"_]\s+(?:[\*\+\?]|@\w)'
     - '(?:^\s*\w+:\s*[\(\[\"])'
+    - '\(#(?:set!|(?:not-)?(?:any-of|match)\?)'
     negative_pattern:
     - '\([+\-:<>\/=~\)]'
-    - '\([\w-]+[!\?]'
-    - '\w\/\w'
 - extensions: ['.sol']
   rules:
   - language: Solidity