Scheme: Minor improvements (#1814)

Minor improvements for the Scheme language.

components/prism-scheme.js

@@ -1,11 +1,11 @@
 Prism.languages.scheme = {
 	'comment': /;.*/,
 	'string': {
-		pattern: /"(?:[^"\\\r\n]|\\.)*"|'[^()#'\s]+/,
+		pattern: /"(?:[^"\\]|\\.)*"|'[^()#'\s]+/,
 		greedy: true
 	},
 	'character': {
-		pattern: /#\\(?:u[a-fA-F\d]{4}|[a-zA-Z]+|\S)/,
+		pattern: /#\\(?:[ux][a-fA-F\d]+|[a-zA-Z]+|\S)/,
 		alias: 'string'
 	},
 	'keyword': {
@@ -17,17 +17,17 @@ Prism.languages.scheme = {
 		lookbehind: true
 	},
 	'number': {
-		pattern: /(\s|[()])[-+]?\d*\.?\d+(?:\s*[-+]\s*\d*\.?\d+i)?\b/,
+		pattern: /([\s()])[-+]?\d*\.?\d+(?:\s*[-+]\s*\d*\.?\d+i)?\b/,
 		lookbehind: true
 	},
 	'boolean': /#[tf]/,
 	'operator': {
 		pattern: /(\()(?:[-+*%\/]|[<>]=?|=>?)(?=\s|$)/,
 		lookbehind: true
 	},
-	'function' : {
-		pattern : /(\()[^()'\s]+(?=[()\s)]|$)/,
-		lookbehind : true
+	'function': {
+		pattern: /(\()[^()'\s]+(?=[()\s)]|$)/,
+		lookbehind: true
 	},
-	'punctuation' : /[()']/
+	'punctuation': /[()']/
 };

tests/languages/scheme/character_feature.test

@@ -1,6 +1,7 @@
 #\a
 #\space
 #\u0041
+#\x10FFFF
 #\λ
 #\)
 
@@ -10,6 +11,7 @@
 	["character", "#\\a"],
 	["character", "#\\space"],
 	["character", "#\\u0041"],
+	["character", "#\\x10FFFF"],
 	["character", "#\\λ"],
 	["character", "#\\)"]
 ]

tests/languages/scheme/string_feature.test

@@ -1,5 +1,9 @@
 ""
 "fo\"obar"
+"
+multi
+line
+"
 'turkey
 (define a 'foo)
 
@@ -8,6 +12,7 @@
 [
 	["string", "\"\""],
 	["string", "\"fo\\\"obar\""],
+	["string", "\"\r\nmulti\r\nline\r\n\""],
 	["string", "'turkey"],
 	["punctuation", "("], ["keyword", "define"], " a ", ["string","'foo"], ["punctuation",")"]
 ]