Hi Nils,

On 2023-11-21 15:25, Nils Landt wrote:
>> Bruno Victal <mirai@makinata.eu> hat am 20.11.2023 18:16 CET ls,
>> On 2023-10-15 15:01, Nils Landt wrote:
>>> +(define (list-of-goimapnotify-accounts? lst)
>>> +  "List is in the form of '((file-name file-like))"
>>> +  (every (lambda (element)
>>> +           (match element
>>> +                  ((string ($ <goimapnotify-account>))
>>> +                   #t)
>>> +                  (_ #f)))
>>> +         lst))
>>
>> You can replace this with:
>> --8<---------------cut here---------------start------------->8---
>> (define list-of-goimapnotify-accounts?
>>   (list-of goimapnotify-account?))
>> --8<---------------cut here---------------end--------------->8---
> 
> Wouldn't that fail because it expects '(goimapnotify-account goimapnotify-account[...])?

Right, it should be something like:

--8<---------------cut here---------------start------------->8---
(define list-of-goimapnotify-accounts?
  (list-of (match-lambda ((? string?) (? goimapnotify-account?)))))
--8<---------------cut here---------------end--------------->8---

-- 
Furthermore, I consider that nonfree software must be eradicated.

Cheers,
Bruno.