diff options
Diffstat (limited to 'module/ice-9/networking.scm')
-rw-r--r-- | module/ice-9/networking.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/module/ice-9/networking.scm b/module/ice-9/networking.scm index 7e84f0969..f9ff39436 100644 --- a/module/ice-9/networking.scm +++ b/module/ice-9/networking.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1999, 2005, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2005, 2006, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -85,3 +85,10 @@ (define (sockaddr:port obj) (vector-ref obj 2)) (define (sockaddr:flowinfo obj) (vector-ref obj 3)) (define (sockaddr:scopeid obj) (vector-ref obj 4)) + +(define (addrinfo:flags obj) (vector-ref obj 0)) +(define (addrinfo:fam obj) (vector-ref obj 1)) +(define (addrinfo:socktype obj) (vector-ref obj 2)) +(define (addrinfo:protocol obj) (vector-ref obj 3)) +(define (addrinfo:addr obj) (vector-ref obj 4)) +(define (addrinfo:canonname obj) (vector-ref obj 5)) |