Re: [dev-serveez] guile support

[Thien-Thi Nguyen]

   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))))

thi