[plt-scheme] Problems and Questions converting to PLaneT

From: Williams, M. Douglas (M.DOUGLAS.WILLIAMS at saic.com)
Date: Wed Dec 28 11:50:10 EST 2005

Actually, after looking at the cache.ss output, the append in the second
change should just be (append extra-path subdir) since subdir is already a
list.  So the suggested fix would be:

 

      ;; this is an awful hack

      (define (planet-cc->sub-cc cc subdir)

        (match-let ([(('planet owner pkg-file extra-path ...) maj min)
(cc-shadowing-policy cc)])

          (planet->cc 

           ;(build-path (cc-path cc) subdir)

           (apply build-path (cc-path cc) subdir)

           owner

           pkg-file

           ;(append extra-path (list (path->string subdir)))

           (append extra-path subdir)

           maj

           min)))

 

Doug

 

 

The changes are limited to one routine (planet-cc->sub-cc) in the
setup-unit.ss file in the setup collection.  The new definition (with
replaced statements commented out and the replacement following it):

 

      ;; this is an awful hack

      (define (planet-cc->sub-cc cc subdir)

        (match-let ([(('planet owner pkg-file extra-path ...) maj min)
(cc-shadowing-policy cc)])

          (planet->cc 

           ;(build-path (cc-path cc) subdir)

           (apply build-path (cc-path cc) subdir)

           owner

           pkg-file

           ;(append extra-path (list (path->string subdir)))

           (append extra-path (list subdir))

           maj

           min)))

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20051228/3aadc842/attachment.html>

Posted on the users mailing list.