From bb6c2fba5a97627de08bec57ddd175add8420d72 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 1 Mar 2008 14:38:38 +0000
Subject: [PATCH] make colorer handle #! abbreviation or #lang

svn: r8839
---
 collects/syntax-color/scheme-lexer.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/syntax-color/scheme-lexer.ss b/collects/syntax-color/scheme-lexer.ss
index 37ee274633..c892d7c699 100644
--- a/collects/syntax-color/scheme-lexer.ss
+++ b/collects/syntax-color/scheme-lexer.ss
@@ -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