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

Yes, and that should be the right thing, I think.  Then maybe you
could wrap it with some parameterize that will forbid planet activity,
so you will show the string only if the package is already in -- ?


On Jan 29, Robby Findler wrote:
> It will download them, no?
> 
> Robby
> 
> On Fri, Jan 29, 2010 at 3:43 PM, Eli Barzilay <eli at barzilay.org> wrote:
> > 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!