~ chicken-core (chicken-5) 4b66457758a9cdd2c7e94fca44f1a50bf142ceab

commit 4b66457758a9cdd2c7e94fca44f1a50bf142ceab
Author:     felix <felix@y.(none)>
AuthorDate: Mon Aug 23 23:04:21 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Mon Aug 23 23:04:21 2010 +0200

    post-migration fixed to rss-feed generator (by mario)

diff --git a/scripts/make-egg-rss-feed.scm b/scripts/make-egg-rss-feed.scm
index 4ecde7bc..1e04e490 100644
--- a/scripts/make-egg-rss-feed.scm
+++ b/scripts/make-egg-rss-feed.scm
@@ -63,10 +63,10 @@
 (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,7 +92,7 @@
 				  (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))