Scheme: Added missing special keywords (#2304)

PrismJS · Apr 27, 2020 · ac297ba · ac297ba
1 parent 10f4327
commit ac297ba
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 5 deletions.
diff --git a/components/prism-scheme.js b/components/prism-scheme.js
@@ -18,7 +18,7 @@ Prism.languages.scheme = {
 		lookbehind: true
 	},
 	'keyword': {
-		pattern: /(\()(?:define(?:-syntax|-library|-values)?|(?:case-)?lambda|let(?:\*|rec)?(?:-values)?|else|if|cond|begin|delay(?:-force)?|parameterize|guard|set!|(?:quasi-)?quote|syntax-rules)(?=[()\s])/,
+		pattern: /(\()(?:define(?:-library|-macro|-syntax|-values)?|defmacro|(?:case-)?lambda|let(?:(?:\*|rec)?(?:-values)?|-syntax|rec-syntax)|else|if|cond|begin|delay(?:-force)?|parameterize|guard|set!|(?:quasi-)?quote|syntax-(?:case|rules))(?=[()\s])/,
 		lookbehind: true
 	},
 	'builtin': {

diff --git a/components/prism-scheme.min.js b/components/prism-scheme.min.js
diff --git a/tests/languages/scheme/keyword_feature.test b/tests/languages/scheme/keyword_feature.test
@@ -1,7 +1,9 @@
 (define)
-(define-syntax)
 (define-library)
+(define-macro)
+(define-syntax)
 (define-values)
+(defmacro)
 (case-lambda)
 (lambda)
 (let)
@@ -22,14 +24,19 @@
 (quasi-quote)
 (quote)
 (syntax-rules)
+(syntax-case)
+(letrec-syntax)
+(let-syntax)
 
 ----------------------------------------------------
 
 [
 	["punctuation", "("], ["keyword", "define"], ["punctuation", ")"],
-	["punctuation", "("], ["keyword", "define-syntax"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "define-library"], ["punctuation", ")"],
+	["punctuation", "("], ["keyword", "define-macro"], ["punctuation", ")"],
+	["punctuation", "("], ["keyword", "define-syntax"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "define-values"], ["punctuation", ")"],
+	["punctuation", "("], ["keyword", "defmacro"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "case-lambda"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "lambda"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "let"], ["punctuation", ")"],
@@ -49,7 +56,10 @@
 	["punctuation", "("], ["keyword", "set!"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "quasi-quote"], ["punctuation", ")"],
 	["punctuation", "("], ["keyword", "quote"], ["punctuation", ")"],
-	["punctuation", "("], ["keyword", "syntax-rules"], ["punctuation", ")"]
+	["punctuation", "("], ["keyword", "syntax-rules"], ["punctuation", ")"],
+	["punctuation", "("], ["keyword", "syntax-case"], ["punctuation", ")"],
+	["punctuation", "("], ["keyword", "letrec-syntax"], ["punctuation", ")"],
+	["punctuation", "("], ["keyword", "let-syntax"], ["punctuation", ")"]
 ]
 
 ----------------------------------------------------