On Fri, Jan 29, 2010 at 2:24 PM, Eli Barzilay <[email protected]> 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 _________________________________________________ For list-related administrative tasks: http://list.cs.brown.edu/mailman/listinfo/plt-dev
