Skip to content

Commit

Permalink
fix character highlighting and tests
Browse files Browse the repository at this point in the history
  • Loading branch information
wlangstroth committed Jan 30, 2013
1 parent 3de8610 commit a7a11d8
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 3 deletions.
3 changes: 2 additions & 1 deletion syntax/racket.vim
Expand Up @@ -447,6 +447,7 @@ syn match racketNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]@[-+]\(inf
syn keyword racketBoolean #t #f #true #false #T #F

syn match racketError "\<#\\\k*\>"

syn match racketChar "\<#\\.\>"
syn match racketChar "\<#\\space\>"
syn match racketChar "\<#\\newline\>"
Expand All @@ -463,7 +464,7 @@ syn match racketChar "\<#\\x[0-9a-f]\{1,2}\>"
syn match racketChar "\<#\\u[0-9a-f]\{1,6}\>"

syn cluster racketNormal add=racketNumber,racketBoolean,racketChar
syn cluster racketQuotedOrNormal add=racketNumber,racketBoolean,racketChar
syn cluster racketQuotedOrNormal add=racketNumber,racketBoolean

" Command-line parsing
syn keyword racketExtFunc command-line current-command-line-arguments once-any help-labels multi once-each
Expand Down
5 changes: 3 additions & 2 deletions test/delimiters.rkt
@@ -1,5 +1,6 @@
#lang racket
(define good-highlight '(a b #tab))
(define good-highlight1 '(a b #\space))
(define good-highlight2 '(a b #\tab))
(define bad-highlight1 '(a b #[))
(define bad-highlight2 '(a b #\tab))
(define bad-highlight2 '(a b $[))
(define stuff-here-should-not-be-quoted '())

0 comments on commit a7a11d8

Please sign in to comment.