suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust the module-lexer so it explicitly notes malformed #lang lines before going into "no-lang-line" mode

Browse Source 
closes PR 11766
This commit is contained in:
Robby Findler 2011-02-22 20:42:19 -06:00
parent 2704b578b2
commit 83b00c0cf1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/syntax-color/module-lexer.rkt
View File

@ -61,7 +61,12 @@ to delegate to the scheme-lexer (in the 'no-lang-line mode).
scheme-lexer))]
[else
(read-string (file-position lexer-port) in) ;; sync ports
(values lexeme type data new-token-start new-token-end 0 'no-lang-line)])])]
(if (and (eq? type 'other)
(string? lexeme)
;; the read-language docs say that this is all it takes to commit to a #lang
(regexp-match #rx"^#[!l]" lexeme))
(values lexeme 'error data new-token-start new-token-end 0 'no-lang-line)
(values lexeme type data new-token-start new-token-end 0 'no-lang-line))])])]
[(eq? mode 'no-lang-line)
(let-values ([(lexeme type data new-token-start new-token-end)
(scheme-lexer in)])