From feafd57882f73c28149b159e0b6b6ee50ce99bc6 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 16 Apr 2024 13:19:28 +0100 Subject: Guard against recent-changes being null --- nar-herder/recent-changes.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/nar-herder/recent-changes.scm b/nar-herder/recent-changes.scm index 3b53d18..ccfff93 100644 --- a/nar-herder/recent-changes.scm +++ b/nar-herder/recent-changes.scm @@ -169,7 +169,9 @@ #:unwind? #t) (#f (loop after '())) (recent-changes - (loop (assq-ref (last recent-changes) - 'datetime) - recent-changes)))))))) + (if (null? recent-changes) + (loop after last-processed-recent-changes) + (loop (assq-ref (last recent-changes) + 'datetime) + recent-changes))))))))) -- cgit v1.2.3