diff options
author | Christopher Baines <mail@cbaines.net> | 2023-10-17 18:51:04 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-10-17 18:51:04 +0100 |
commit | b39bbbb297033b34d9812bd02e54f545d50ec971 (patch) | |
tree | ca74318a14b8406913c34a1052a7137b2bbfab3e | |
parent | b1f477e8138c557e3a7977ad76692623c9000e8f (diff) | |
download | qa-frontpage-b39bbbb297033b34d9812bd02e54f545d50ec971.tar qa-frontpage-b39bbbb297033b34d9812bd02e54f545d50ec971.tar.gz |
Take the last count patch series
Rather than the first, as the list grows from the front.
Also remove the peek.
-rw-r--r-- | guix-qa-frontpage/patchwork.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 42ddfb7..04a15e6 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -114,10 +114,12 @@ (result '())) - (if (> (peek "LEN" (length result)) count) - (let* ((count-items - rest - (split-at! result count)) + (if (> (length result) count) + (let* ((rest + count-items + (split-at! result + (- (length result) + count))) (debbugs-guix-usertag-data (call-with-delay-logging debbugs-get-issues-with-guix-usertag)) |