add get-info function to Pollen reader for better compatibility with DrRacket

reader-base.rkt

@@ -14,28 +14,28 @@
   (λ (path-string p)
     (define read-inner (make-at-reader 
                         #:command-char (if (or (equal? reader-mode world:mode-template) 
-                                               (and (string? path-string) (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string)))
-                                           world:template-command-marker
-                                           world:command-marker)
+                                              (and (string? path-string) (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string)))
+                                          world:template-command-marker
+                                          world:command-marker)
                         #:syntax? #t 
                         #:inside? #t))
     (define file-contents (read-inner path-string p))
     (datum->syntax file-contents 
-                   `(module pollen-lang-module pollen 
-                      (define reader-mode ',reader-mode)
-                      (define reader-here-path ,(cond
-                                                  [(symbol? path-string) (symbol->string path-string)]
-                                                  [(equal? path-string "unsaved editor") path-string]
-                                                  [else (path->string path-string)]))
-                      ;; change the name of reader-here-path & reader-mode for local use
-                      ;; so they don't conflict if this source is imported into another
-                      (provide (except-out (all-defined-out) reader-here-path reader-mode)
-                               (prefix-out inner: reader-here-path)
-                               (prefix-out inner: reader-mode)) 
-                   
-                   ,(require+provide-project-require-files path-string)
-                   ,@file-contents)
-    file-contents)))
+                  `(module pollen-lang-module pollen 
+                     (define reader-mode ',reader-mode)
+                     (define reader-here-path ,(cond
+                                                 [(symbol? path-string) (symbol->string path-string)]
+                                                 [(equal? path-string "unsaved editor") path-string]
+                                                 [else (path->string path-string)]))
+                     ;; change the name of reader-here-path & reader-mode for local use
+                     ;; so they don't conflict if this source is imported into another
+                     (provide (except-out (all-defined-out) reader-here-path reader-mode)
+                             (prefix-out inner: reader-here-path)
+                             (prefix-out inner: reader-mode)) 
+                     
+                     ,(require+provide-project-require-files path-string)
+                     ,@file-contents)
+                  file-contents)))
 
 
 (define-syntax-rule (define+provide-reader-in-mode mode)
@@ -43,4 +43,8 @@
     (define reader-mode mode)
     (define custom-read-syntax (make-custom-read-syntax reader-mode))
     (define custom-read (make-custom-read custom-read-syntax))
-    (provide (rename-out [custom-read read] [custom-read-syntax read-syntax]))))
+    (define (get-info in mod line col pos)
+      (λ (key default)
+        (case key
+          [else default])))
+    (provide (rename-out [custom-read read] [custom-read-syntax read-syntax]) get-info)))