On Jan 29, Robby Findler wrote:
> 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?
It should. Do you see any errors?
--
((lambda (x) (x x)) (lambda (x) (x x))) Eli Barzilay:
http://barzilay.org/ Maze is Life!
_________________________________________________
For list-related administrative tasks:
http://list.cs.brown.edu/mailman/listinfo/plt-dev
