diff --git a/scripts/make-egg-rss-feed.scm b/scripts/make-egg-rss-feed.scm
index 4ecde7b..1e04e49 100644
a
|
b
|
|
63 | 63 | (define (channel title) |
64 | 64 | (let ((date (seconds->string (current-seconds)))) |
65 | 65 | `((title ,title) |
66 | | (link "http://galinha.ucpel.tche.br/chicken-projects/egg-rss-feed-4.xml") |
| 66 | (link "http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml") |
67 | 67 | (description "RSS feed for publishing latest CHICKEN extensions") |
68 | 68 | (language "en-us") |
69 | | (copyright "(c)2009 The CHICKEN Team") |
| 69 | (copyright "(c)2010 The CHICKEN Team") |
70 | 70 | (pubDate ,date) |
71 | 71 | (lastBuildDate ,date)))) |
72 | 72 | |
… |
… |
|
92 | 92 | (c (assq c1 +categories+))) |
93 | 93 | (if c (cadr c) (sprintf "unknown category: ~a" c1))))) |
94 | 94 | (guid (@ (isPermaLink "false")) ,(symbol->string (car egg))) |
95 | | (link ,(sprintf "http://chicken.wiki.br/eggref/~a/~a" *major-version* (car egg))) |
| 95 | (link ,(sprintf "http://wiki.call-cc.org/eggref/~a/~a" *major-version* (car egg))) |
96 | 96 | (description ,(prop 'synopsis "unknown" string?)) |
97 | 97 | (author ,(prop 'author "unknown" name?)))))) |
98 | 98 | eggs)) |