From 3360a1a221bb58e57649ba52b97b9136550b0b28 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= <jensaxel@soegaard.net>
Date: Mon, 2 Jul 2012 12:37:35 +0200
Subject: [PATCH] Added support for greek letters

---
 bracket/lang/parser.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/bracket/lang/parser.rkt b/bracket/lang/parser.rkt
index 74b98b2ab..052e330a3 100644
--- a/bracket/lang/parser.rkt
+++ b/bracket/lang/parser.rkt
@@ -70,7 +70,9 @@
    EOF))
 
 (define-lex-abbrevs
-  [letter       (:or (:/ "a" "z") (:/ #\A #\Z) )]
+  [greek        (:or (char-range #\α #\ω) (char-range #\Γ #\Ω))]
+  [roman        (:or (:/ "a" "z") (:/ #\A #\Z) )]
+  [letter       (:or roman greek)]
   [digit        (:/ #\0 #\9)]
   [string       (:: #\" (:* (:~ #\")) #\")]
   [identifier   (:: letter (:* (:or letter digit #\_ #\?)))]
@@ -149,6 +151,8 @@
                (+ (position-offset d) 1))))
 
 (define color-lexer
+  ; REMEMBER to restart DrScheme to test any changes in the color-lexer.
+  ; The lexer is only imported into DrRacket at startup.
   (lexer
    [(eof)
     (syn-val lexeme 'eof #f start-pos end-pos)]