ray/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename function to avoid equal? vs eq? confusion

Browse source
This commit is contained in:
Ray Miller 2025-06-17 18:08:25 +01:00
parent 52462ffa40
commit 481e415883
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guile/list-gitlab-merge-requests.scm
View file

@ -70,12 +70,12 @@
(close-port body-port) (close-port body-port)
(vector->list body)))) (vector->list body))))
(define (field-eq? field-name value) (define (field-equal? field-name value)
(lambda (alist) (lambda (alist)
(equal? (assoc-ref alist field-name) value))) (equal? (assoc-ref alist field-name) value)))
(define (main args) (define (main args)
(for-each (cut format #t "~a~%" <>) (for-each (cut format #t "~a~%" <>)
(map (cut assoc-ref <> "web_url") (map (cut assoc-ref <> "web_url")
(filter (field-eq? "title" "Build: add pip-audit to pipeline") (filter (field-equal? "title" "Build: add pip-audit to pipeline")
(list-merge-requests '((state . "opened") (author_username . "ray33"))))))) (list-merge-requests '((state . "opened") (author_username . "ray33")))))))