update components

dashboard-ui/bower_components/prism/tests/languages/scheme/boolean_feature.test

@@ -0,0 +1,13 @@
+#t
+#f
+
+----------------------------------------------------
+
+[
+	["boolean", "#t"],
+	["boolean", "#f"]
+]
+
+----------------------------------------------------
+
+Checks for booleans.

dashboard-ui/bower_components/prism/tests/languages/scheme/builtin_feature.test

@@ -0,0 +1,53 @@
+(cons
+(car
+(cdr
+(null?
+(pair?
+(boolean?
+(eof-object?
+(char?
+(procedure?
+(number?
+(port?
+(string?
+(vector?
+(symbol?
+(bytevector?
+(list
+(call-with-current-continuation
+(call/cc
+(append
+(abs
+(apply
+(eval
+
+----------------------------------------------------
+
+[
+	["punctuation", "("], ["builtin", "cons"],
+	["punctuation", "("], ["builtin", "car"],
+	["punctuation", "("], ["builtin", "cdr"],
+	["punctuation", "("], ["builtin", "null?"],
+	["punctuation", "("], ["builtin", "pair?"],
+	["punctuation", "("], ["builtin", "boolean?"],
+	["punctuation", "("], ["builtin", "eof-object?"],
+	["punctuation", "("], ["builtin", "char?"],
+	["punctuation", "("], ["builtin", "procedure?"],
+	["punctuation", "("], ["builtin", "number?"],
+	["punctuation", "("], ["builtin", "port?"],
+	["punctuation", "("], ["builtin", "string?"],
+	["punctuation", "("], ["builtin", "vector?"],
+	["punctuation", "("], ["builtin", "symbol?"],
+	["punctuation", "("], ["builtin", "bytevector?"],
+	["punctuation", "("], ["builtin", "list"],
+	["punctuation", "("], ["builtin", "call-with-current-continuation"],
+	["punctuation", "("], ["builtin", "call/cc"],
+	["punctuation", "("], ["builtin", "append"],
+	["punctuation", "("], ["builtin", "abs"],
+	["punctuation", "("], ["builtin", "apply"],
+	["punctuation", "("], ["builtin", "eval"]
+]
+
+----------------------------------------------------
+
+Checks for builtins.

dashboard-ui/bower_components/prism/tests/languages/scheme/comment_feature.test

@@ -0,0 +1,13 @@
+;
+; foobar
+
+----------------------------------------------------
+
+[
+	["comment", ";"],
+	["comment", "; foobar"]
+]
+
+----------------------------------------------------
+
+Checks for comments.

dashboard-ui/bower_components/prism/tests/languages/scheme/function_feature.test

@@ -0,0 +1,17 @@
+(fl= 1 2)
+(flmin 2 3)
+(exact? 2)
+(inexact->exact 3)
+
+----------------------------------------------------
+
+[
+	["punctuation", "("], ["function", "fl="], ["number", "1"], ["number", "2"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "flmin"], ["number", "2"], ["number", "3"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "exact?"], ["number", "2"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "inexact->exact"], ["number", "3"], ["punctuation", ")"]
+]
+
+----------------------------------------------------
+
+Checks for functions.

dashboard-ui/bower_components/prism/tests/languages/scheme/keyword_feature.test

@@ -0,0 +1,57 @@
+(define
+(define-syntax
+(define-library
+(define-values
+(case-lambda
+(lambda
+(let
+(let*
+(letrec
+(let-values
+(let*-values
+(letrec-values
+(else
+(if
+(cond
+(begin
+(delay
+(delay-force
+(parameterize
+(guard
+(set!
+(quasi-quote
+(quote
+(syntax-rules
+
+----------------------------------------------------
+
+[
+	["punctuation", "("], ["keyword", "define"],
+	["punctuation", "("], ["keyword", "define-syntax"],
+	["punctuation", "("], ["keyword", "define-library"],
+	["punctuation", "("], ["keyword", "define-values"],
+	["punctuation", "("], ["keyword", "case-lambda"],
+	["punctuation", "("], ["keyword", "lambda"],
+	["punctuation", "("], ["keyword", "let"],
+	["punctuation", "("], ["keyword", "let*"],
+	["punctuation", "("], ["keyword", "letrec"],
+	["punctuation", "("], ["keyword", "let-values"],
+	["punctuation", "("], ["keyword", "let*-values"],
+	["punctuation", "("], ["keyword", "letrec-values"],
+	["punctuation", "("], ["keyword", "else"],
+	["punctuation", "("], ["keyword", "if"],
+	["punctuation", "("], ["keyword", "cond"],
+	["punctuation", "("], ["keyword", "begin"],
+	["punctuation", "("], ["keyword", "delay"],
+	["punctuation", "("], ["keyword", "delay-force"],
+	["punctuation", "("], ["keyword", "parameterize"],
+	["punctuation", "("], ["keyword", "guard"],
+	["punctuation", "("], ["keyword", "set!"],
+	["punctuation", "("], ["keyword", "quasi-quote"],
+	["punctuation", "("], ["keyword", "quote"],
+	["punctuation", "("], ["keyword", "syntax-rules"]
+]
+
+----------------------------------------------------
+
+Checks for keywords.

dashboard-ui/bower_components/prism/tests/languages/scheme/number_feature.test

@@ -0,0 +1,19 @@
+(foo 42)
+(foo 3.14159)
+(foo 3+4i)
+(foo 2.5+0.0i)
+(foo 3+0i)
+
+----------------------------------------------------
+
+[
+	["punctuation", "("], ["function", "foo"], ["number", "42"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "foo"], ["number", "3.14159"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "foo"], ["number", "3+4i"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "foo"], ["number", "2.5+0.0i"], ["punctuation", ")"],
+	["punctuation", "("], ["function", "foo"], ["number", "3+0i"], ["punctuation", ")"]
+]
+
+----------------------------------------------------
+
+Checks for numbers and complex numbers.

dashboard-ui/bower_components/prism/tests/languages/scheme/operator_feature.test

@@ -0,0 +1,31 @@
+(+
+(-
+(*
+(/
+(%
+(<
+(<=
+(>
+(>=
+(=
+(=>
+
+----------------------------------------------------
+
+[
+	["punctuation", "("], ["operator", "+"],
+	["punctuation", "("], ["operator", "-"],
+	["punctuation", "("], ["operator", "*"],
+	["punctuation", "("], ["operator", "/"],
+	["punctuation", "("], ["operator", "%"],
+	["punctuation", "("], ["operator", "<"],
+	["punctuation", "("], ["operator", "<="],
+	["punctuation", "("], ["operator", ">"],
+	["punctuation", "("], ["operator", ">="],
+	["punctuation", "("], ["operator", "="],
+	["punctuation", "("], ["operator", "=>"]
+]
+
+----------------------------------------------------
+
+Checks for operators.

dashboard-ui/bower_components/prism/tests/languages/scheme/string_feature.test

@@ -0,0 +1,15 @@
+""
+"fo\"obar"
+'turkey
+
+----------------------------------------------------
+
+[
+	["string", "\"\""],
+	["string", "\"fo\\\"obar\""],
+	["string", "'turkey"]
+]
+
+----------------------------------------------------
+
+Checks for strings and symbols.