[racket-dev] Planet require gone wild

I'm running HEAD = c126a8a from about 1 week ago.

I wanted to try the PEG Planet 1 package.

My source file was simply this:

    #lang racket
    (require (planet kazzmir/peg:2:0/peg))

1. Using command-line Racket, I got:

Welcome to Racket v5.90.0.3.
; uncaught exception:
'#&"/Users/greg/src/scheme/collects/markdown/markdown/peg.rkt"

Huh.

I had the bright idea of trying this again, in DrRacket 5.90.0.3.

2. Right away, I got a red message:

make-directory: forbidden (write) access to
/Users/greg/Library/Racket/planet/300/5.90.0.3

Strange...

3. Perhaps dumbly, I decided to hit Run, anyway.

What happened is that it installed a LOT of Planet packages. I let it
run for awhile, thinking maybe there were more dependencies for `peg'
than I realized. But the names flying by were making less and less
sense. I got worried it was running wild and doing something like
maybe trying to install ALL Planet packages.

Plus then it started spitting out the following in the eval pane:

Welcome to DrRacket, version 5.90.0.3--2013-07-30(c126a8aa/d) [3m].
Language: racket [custom]; memory limit: 2048 MB.
Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/class.ss:36:16:
module: identifier is already imported
  at: send+
  in: (define-syntaxes (send+) (new-lambda (stx) (syntax-case stx ()
((s+ expr clause ...) (syntax/loc stx (let* ((obj expr)) (send obj .
clause) ... obj))))))
Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/contract.ss:319:30:
proj-get: unbound identifier in module
  in: proj-get
Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/contract.ss:319:30:
proj-get: unbound identifier in module
  in: proj-get
raco setup: error: during making for <planet>/cce/scheme.plt/6/3
(Scheme Utilities: (planet cce/scheme))
raco setup:   Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/class.ss:36:16:
module: identifier is already imported
raco setup:     at: send+
raco setup:     in: (define-syntaxes (send+) (new-lambda (stx)
(syntax-case stx () ((s+ expr clause ...) (syntax/loc stx (let* ((obj
expr)) (send obj . clause) ... obj))))))
raco setup: error: during making for <planet>/cce/scheme.plt/6/3/reference
raco setup:   Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/contract.ss:319:30:
proj-get: unbound identifier in module
raco setup:     in: proj-get
raco setup: error: during Building docs for
/Users/greg/Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/reference/manual.scrbl
raco setup:   Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/contract.ss:319:30:
proj-get: unbound identifier in module
raco setup:     in: proj-get
Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/contract.ss:319:30:
proj-get: unbound identifier in module
  in: proj-get
Library/Racket/planet/300/5.90.0.3/cache/cce/scheme.plt/6/3/contract.ss:319:30:
proj-get: unbound identifier in module
  in: proj-get
. . ../../../../../../../../../../../src/plt/racket/racket/collects/setup/private/omitted-paths.rkt:71:2:
user break
. . src/plt/racket/racket/collects/planet/private/resolver.rkt:606:8: user break
>

So I hit Stop in DrRacket (as you see from "user break").  Whew.

4. Here's everything it just installed. The only 2 I expected were
`peg' and `memoize`:

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache:
  total used in directory 0 available 146890512
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 .
  drwxr-xr-x   5 greg  staff  170 Aug  1 21:32 ..
  drwxr-xr-x   9 greg  staff  306 Aug  1 21:33 bzlib
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:34 cce
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 dherman
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 kazzmir
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 ryanc
  drwxr-xr-x   5 greg  staff  170 Aug  1 21:35 schematics
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 untyped
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 zitterbewegung

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/bzlib:
  total used in directory 0 available 146891616
  drwxr-xr-x   9 greg  staff  306 Aug  1 21:33 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 base.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 date-tz.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 date.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 file.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 os.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 parseq.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 port.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/cce:
  total used in directory 0 available 146891608
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:34 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:34 scheme.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/dherman:
  total used in directory 0 available 146891608
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 memoize.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/kazzmir:
  total used in directory 0 available 146891600
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 peg.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/ryanc:
  total used in directory 0 available 146891600
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 require.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/schematics:
  total used in directory 0 available 146891592
  drwxr-xr-x   5 greg  staff  170 Aug  1 21:35 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:35 namespace.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 sake.plt
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:32 schemeunit.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/untyped:
  total used in directory 0 available 146891592
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 unlib.plt

  /Users/greg/Library/Racket/planet/300/5.90.0.3/cache/zitterbewegung:
  total used in directory 0 available 146891592
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 .
  drwxr-xr-x  10 greg  staff  340 Aug  1 21:34 ..
  drwxr-xr-x   3 greg  staff  102 Aug  1 21:33 uuid-v4.plt


Please let me know what else I can try or do that might be helpful.

For the moment I haven't touched anything, leaving it as-is in case
you might need that.