Re: [dev-serveez] guile support

[stefan]

On Tue, 5 Feb 2002, Thien-Thi Nguyen wrote:

>    From: Martin Grabmueller <address@hidden>
>    Date: Tue, 05 Feb 2002 12:42:31 +0100
> 
>    (define (check-rpc-portmapper number version) ...)
> 
> another implementation, using `member-if' and `and=>':
> 
> (use-modules (ice-9 common-list))
> 
> (define (check-rpc-portmapper number version)
>   (and=> (portmap-list)
>          (lambda (mappings)
>            (member-if (lambda (m)
>                         (and (equal? (vector-ref (car m) 0) number)
>                              (equal? (vector-ref (car m) 1) version)))
>                       mappings))))

Hm.  Martin's proposal was something I understood without learning
anything new.  But this one seems to be more tricky.  Could you please
explain to a Guile newcomer what (and=>) and (member-if) actually do?  I
would be happy to learn something new...

Thanks in advance,
        address@hidden