From 6c5f6b7119acfa5d823441bf8fbc37404d712c07 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 20:25:20 +0200 Subject: [PATCH] Fix order. --- src/mailman.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mailman.scm b/src/mailman.scm index ce7d8d5..7187c55 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -103,7 +103,7 @@ (let ((mln (car lsts))) (progress%-advance (/ idx total)) (loop (cdr lsts) - (cons res (load-mailman-list mln)) + (cons (load-mailman-list mln) res) (add1 idx)))))))) ;; List of lists, returns the whole list record (including name)