From 3816a547fe9ad4e08deccc83a4d2aba7cd3bcd40 Mon Sep 17 00:00:00 2001 From: Ray Miller Date: Thu, 26 Jun 2025 16:13:51 +0000 Subject: [PATCH] Use assoc-set! to set alist value --- anarres/gitlab.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/anarres/gitlab.scm b/anarres/gitlab.scm index 227bdbe..03d6945 100644 --- a/anarres/gitlab.scm +++ b/anarres/gitlab.scm @@ -110,7 +110,10 @@ values strings or #f, in which case the parameter is skipped." (define* (get-paged client endpoint #:key (query '()) (post-proc identity)) (let ((query-params (ensure-per-page query "100"))) (define (get-pages accum next-page) - (let* ((body headers (api-call client http-get endpoint #:query (alist-cons 'page next-page query-params) #:post-proc post-proc #:return-headers? #t)) + (let* ((body headers (api-call client http-get endpoint + #:query (assoc-set! query-params 'page next-page) + #:post-proc post-proc + #:return-headers? #t)) (accum (append accum body)) (next-page (assoc-ref headers 'x-next-page))) (if (and (string? next-page) (> (string-length next-page) 0))