From fbc01d567f881c431aaf9335d2e29d46622854df Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Sat, 20 Jun 2015 00:17:06 -0400
Subject: [PATCH] add color-lexer for #lang pollen

---
 .gitignore      | 1 +
 reader-base.rkt | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/.gitignore b/.gitignore
index ddeb01f..9f475e5 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,5 +1,6 @@
 # for Racket
 compiled/
+*~
 
 # for Mac OS X
 .DS_Store
diff --git a/reader-base.rkt b/reader-base.rkt
index 666d619..a84688e 100644
--- a/reader-base.rkt
+++ b/reader-base.rkt
@@ -66,5 +66,11 @@
     (define (get-info in mod line col pos)
       (λ (key default)
         (case key
+          [(color-lexer)
+           (define make-scribble-inside-lexer2
+             (dynamic-require 'syntax-color/scribble-lexer 'make-scribble-inside-lexer (λ () #f)))
+           (cond [make-scribble-inside-lexer2
+                  (make-scribble-inside-lexer2 #:command-char #\◊)]
+                 [else default])]
           [else default])))
     (provide (rename-out [custom-read read] [custom-read-syntax read-syntax]) get-info)))
\ No newline at end of file
-- 
2.25.1