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

pull/27/head
Matthew Butterick 10 years ago
parent 8f922f197b
commit 74ae614b55

@ -43,4 +43,8 @@
(define reader-mode mode) (define reader-mode mode)
(define custom-read-syntax (make-custom-read-syntax reader-mode)) (define custom-read-syntax (make-custom-read-syntax reader-mode))
(define custom-read (make-custom-read custom-read-syntax)) (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)))
Loading…
Cancel
Save