parent
08e1006933
commit
abaaef7c83
|
@ -14,8 +14,6 @@ class SchemeGrammar(Grammar):
|
|||
PatternRule(r'eol', r'\n'),
|
||||
PatternRule(r'abbrev', r"'|`|,\@|,"),
|
||||
|
||||
#PatternMatchRule(r'xyz', r'(abc)(def)(g*)(hij)', 'f1', 'f2', 'f3', 'f4'),
|
||||
|
||||
# from r5rs
|
||||
PatternRule(r'scheme_keyword', r'(?:=>|unquote-splicing|unquote|syntax-rules|set!|quote|quasiquote|or|map|loop|letrec-syntax|letrec|let-syntax|let\*|let|lambda|if|for-each|else|dynamic-wind|do|delay|define-syntax|define-macro|define|cond|case|call-with-output-file|call-with-input-file|call-with-current-continuation|begin|and)(?![^\n )])'),
|
||||
|
||||
|
@ -62,11 +60,6 @@ class Scheme(Lisp):
|
|||
'scheme_char': ('green', 'default', 'bold'),
|
||||
'scheme_boolean': ('magenta', 'default', 'bold'),
|
||||
'scheme_number': ('default', 'default', 'bold'),
|
||||
|
||||
#'f1': ('red', 'default'),
|
||||
#'f2': ('yellow', 'default'),
|
||||
#'f3': ('green', 'default'),
|
||||
#'f4': ('cyan', 'default'),
|
||||
}
|
||||
actions = [SchemeCheckSyntax, GuileStart, GuileLoadFile]
|
||||
_bindings = {
|
||||
|
|
Loading…
Reference in New Issue