[racket] doing a setup of all PLaneT development links

From: Neil Van Dyke (neil at neilvandyke.org)
Date: Fri Dec 23 17:12:40 EST 2011

If I want to do a "setup" of all current PLaneT development link 
packages, is there a better way than the following?

#lang racket/base

(require planet/planet-archives)

(define (planet-development-links-setup-args lst)
   (let loop ((lst lst))
     (if (null? lst)
         (apply (lambda (path owner pkg unknown major minor)
                    ,(number->string major)
                    ,(number->string minor)
                    ,@(loop (cdr lst))))
                (car lst)))))

(define (setup-planet-development-links lst
(prefix-arguments '()))
   (parameterize ((current-command-line-arguments
                   (list->vector `(, at prefix-arguments
,@(planet-development-links-setup-args lst)))))
     (dynamic-require 'setup/main #f)))

(setup-planet-development-links (get-hard-linked-packages))


Posted on the users mailing list.