Ticket #343: make-egg-rss-feed.diff

scripts/make-egg-rss-feed.scm

@@ -63 +63 @@
 (define (channel title)
   (let ((date (seconds->string (current-seconds))))
     `((title ,title)
-      (link "http://galinha.ucpel.tche.br/chicken-projects/egg-rss-feed-4.xml")
+      (link "http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml")
       (description "RSS feed for publishing latest CHICKEN extensions")
       (language "en-us")
-      (copyright "(c)2009 The CHICKEN Team")
+      (copyright "(c)2010 The CHICKEN Team")
       (pubDate ,date)
       (lastBuildDate ,date))))
 
@@ -92 +92 @@
                                   (c (assq c1 +categories+)))
                              (if c (cadr c) (sprintf "unknown category: ~a" c1)))))
           (guid (@ (isPermaLink "false")) ,(symbol->string (car egg)))
-          (link ,(sprintf "http://chicken.wiki.br/eggref/~a/~a" *major-version* (car egg)))
+          (link ,(sprintf "http://wiki.call-cc.org/eggref/~a/~a" *major-version* (car egg)))
           (description ,(prop 'synopsis "unknown" string?))
           (author ,(prop 'author "unknown" name?))))))
    eggs))