iens

commit 28ad1847f0d6580f21ff55bfa990352ae2649d46
parent aec5f5b2dab6eb533bc9ad2e531793ed20b4087e
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue,  9 Jun 2026 18:41:29 +0000

Catastrophic typos are protected
Diffstat:
M
src/cgi.scm
 | 
9
+++++----
M
src/iens.scm
 | 
4
++--

2 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -840,10 +840,11 @@ END-OF-CSS
                (unless (null? rows)
                  (with-output-to-file (string-append feed-root filename)
                    (lambda ()
-                     (if (null? mtime) (list-ref (car rows) 7) mtime)
-                     title
-                     self-url
-                     rows))))))
+                     (write-feed
+                       (if (null? mtime) (list-ref (car rows) 7) mtime)
+                       title
+                       self-url
+                       rows)))))))
          (sql/transient db
            "SELECT filename,mtime,title,url,selector FROM feed WHERE id=?;")
          id))
diff --git a/src/iens.scm b/src/iens.scm
@@ -1193,7 +1193,7 @@
 ;; Feed Generation
 
 (define (generate-feed forced feed-id filename url selector title mtime)
-  (let* ((rows (feed-rows selector)))
+  (let* ((rows (feed-rows selector))
          (generate?
            (cond ((null? rows)
                    (when config-verbose
@@ -1222,7 +1222,7 @@
         (alist-update! feed-id
                        (map (lambda (row) (list (car row) (list-ref row 7)))
                             rows)
-                       feed-cache =))))
+                       feed-cache =)))))
 
 (define (generate-feeds forced id-list)
   (for-each