Re: [Chicken-users] reinstall all eggs

[Mario Domenech Goulart]

On Fri, 20 Apr 2007 22:59:56 +0900 "Alex Shinn" <address@hidden> wrote:

> Ah, OK.  For this you could use the second command, and instead of
> listing the uninstalled eggs (comm -1 -3 = set difference), list the
> installed eggs (comm -1 -2 = set intersection):
> 
> $ chicken-setup -fetch-tree | grep '^[ (](' |\
>     perl -ape 's/^[ (]\(([^ ]+)(?: .*)?$/\1/' | sort > pkg.txt

A chickenized version:

(use http-client)

(with-output-to-file "pkg.txt"
  (lambda ()
    (for-each print
              (sort
               (map (compose symbol->string car)
                    (with-input-from-string
                        (http:GET 
"http://www.call-with-current-continuation.org/eggs/repository";)
                      read))
               string<))))

Best wishes,
Mario