Rename function to avoid equal? vs eq? confusion

This commit is contained in:
Ray Miller 2025-06-17 18:08:25 +01:00
parent 52462ffa40
commit 481e415883

View file

@ -70,12 +70,12 @@
(close-port body-port)
(vector->list body))))
(define (field-eq? field-name value)
(define (field-equal? field-name value)
(lambda (alist)
(equal? (assoc-ref alist field-name) value)))
(define (main args)
(for-each (cut format #t "~a~%" <>)
(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")))))))