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)
`("-P"
,owner
,pkg
,(number->string major)
,(number->string minor)
,@(loop (cdr lst))))
(car lst)))))
(define (setup-planet-development-links lst
#:prefix-arguments
(prefix-arguments '()))
(parameterize ((current-command-line-arguments
(list->vector `(,@prefix-arguments
,@(planet-development-links-setup-args lst)))))
(dynamic-require 'setup/main #f)))
(setup-planet-development-links (get-hard-linked-packages))
--
http://www.neilvandyke.org/
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/users
