Scheme: Use standard char token (#3254)

Author: RunDevelopment

components/prism-scheme.js

@@ -14,10 +14,9 @@
 			pattern: /'[^()\[\]#'\s]+/,
 			greedy: true
 		},
-		'character': {
+		'char': {
 			pattern: /#\\(?:[ux][a-fA-F\d]+\b|[-a-zA-Z]+\b|[\uD800-\uDBFF][\uDC00-\uDFFF]|\S)/,
-			greedy: true,
-			alias: 'string'
+			greedy: true
 		},
 		'lambda-parameter': [
 			// https://www.cs.cmu.edu/Groups/AI/html/r4rs/r4rs_6.html#SEC30

components/prism-scheme.min.js

@@ -0,0 +1,41 @@
+#\a                     ; lowercase letter
+#\A                     ; uppercase letter
+#\(                     ; left parenthesis
+#\space                 ; the space character
+#\newline               ; the newline character
+
+#\c-a                   ; Control-a
+#\meta-b                ; Meta-b
+#\c-s-m-h-a             ; Control-Meta-Super-Hyper-A
+
+#\; #\' #\"
+
+#\u0041
+#\x10FFFF
+#\λ
+#\)
+
+----------------------------------------------------
+
+[
+	["char", "#\\a"], ["comment", "; lowercase letter"],
+	["char", "#\\A"], ["comment", "; uppercase letter"],
+	["char", "#\\("], ["comment", "; left parenthesis"],
+	["char", "#\\space"], ["comment", "; the space character"],
+	["char", "#\\newline"], ["comment", "; the newline character"],
+
+	["char", "#\\c-a"], ["comment", "; Control-a"],
+	["char", "#\\meta-b"], ["comment", "; Meta-b"],
+	["char", "#\\c-s-m-h-a"], ["comment", "; Control-Meta-Super-Hyper-A"],
+
+	["char", "#\\;"], ["char", "#\\'"], ["char", "#\\\""],
+
+	["char", "#\\u0041"],
+	["char", "#\\x10FFFF"],
+	["char", "#\\λ"],
+	["char", "#\\)"]
+]
+
+----------------------------------------------------
+
+Checks for character literals.

tests/languages/racket/char_feature.test

@@ -0,0 +1,43 @@
+#\a                     ; lowercase letter
+#\A                     ; uppercase letter
+#\(                     ; left parenthesis
+#\space                 ; the space character
+#\newline               ; the newline character
+
+#\c-a                   ; Control-a
+#\meta-b                ; Meta-b
+#\c-s-m-h-a             ; Control-Meta-Super-Hyper-A
+
+#\; #\' #\"
+
+#\u0041
+#\x10FFFF
+#\λ
+#\)
+#\💩
+
+----------------------------------------------------
+
+[
+	["char", "#\\a"], ["comment", "; lowercase letter"],
+	["char", "#\\A"], ["comment", "; uppercase letter"],
+	["char", "#\\("], ["comment", "; left parenthesis"],
+	["char", "#\\space"], ["comment", "; the space character"],
+	["char", "#\\newline"], ["comment", "; the newline character"],
+
+	["char", "#\\c-a"], ["comment", "; Control-a"],
+	["char", "#\\meta-b"], ["comment", "; Meta-b"],
+	["char", "#\\c-s-m-h-a"], ["comment", "; Control-Meta-Super-Hyper-A"],
+
+	["char", "#\\;"], ["char", "#\\'"], ["char", "#\\\""],
+
+	["char", "#\\u0041"],
+	["char", "#\\x10FFFF"],
+	["char", "#\\λ"],
+	["char", "#\\)"],
+	["char", "#\\💩"]
+]
+
+----------------------------------------------------
+
+Checks for character literals.