Blame view

bower_components/prism/tests/languages/scheme/keyword_feature.test 1.54 KB
eb240478   Luigi Serra   public room cards...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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.