[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [dev-serveez] guile support

From: stefan
Subject: Re: [dev-serveez] guile support
Date: Wed, 6 Feb 2002 08:01:33 +0100 (CET)

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,

reply via email to

[Prev in Thread] Current Thread [Next in Thread]