[plt-dev] language dialog, some minor changes & bugfixes

On Fri, Jan 29, 2010 at 2:24 PM, Eli Barzilay <eli at barzilay.org> wrote:
> Here's some rough code that is easy to translate to a port instead of
> a string:
>
>  (define (lang-line str)
>    (let* ([i (open-input-string str)]
>           [l (read-language i (lambda () '?))])
>      (if (eq? '? l)
>        (values "???" '???)
>        (values (regexp-replace #rx"^#(?:!|lang ) *"
>                                (substring str 0 (file-position i))
>                                "")
>                (l 'module-language '???)))))

This doesn't work for planet packages, right?

Robby