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

make colorer handle #! abbreviation or #lang

Browse Source 
svn: r8839
This commit is contained in:
Matthew Flatt 2008-03-01 14:38:38 +00:00
parent b3a47edde1
commit bb6c2fba5a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/syntax-color/scheme-lexer.ss
View File

@ -291,11 +291,11 @@
[(:or sharing reader-command "." "," ",@" "#," "#,@")
(ret lexeme 'other #f start-pos end-pos)]
[(:: "#lang "
[(:: (:or "#lang " "#!")
(:or langchar
(:: langchar (:* (:or langchar "/")) langchar)))
(ret lexeme 'other #f start-pos end-pos)]
[(:: "#lang " (:* (:& any-char (complement whitespace))))
[(:: (:or "#lang " "#!") (:* (:& any-char (complement whitespace))))
(ret lexeme 'error #f start-pos end-pos)]
[identifier