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 <[email protected]> wrote: > > 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
