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

On Jan 29, Robby Findler wrote:
> 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?

It should.  Do you see any errors?

-- 
          ((lambda (x) (x x)) (lambda (x) (x x)))          Eli Barzilay:
                    http://barzilay.org/                   Maze is Life!