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
(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.