mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

2005-10-27 Ludovic Courtès <ludovic.courtes@laas.fr>

Browse source 
* networking.scm (sockaddr:flowinfo, sockaddr:scopeid): New functions.
This commit is contained in:
Kevin Ryde 2005-10-31 23:33:07 +00:00
parent 1cc1bcaca1
commit 8acfc848a5
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/networking.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1999 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2005 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -80,3 +80,5 @@
(define (sockaddr:path obj) (vector-ref obj 1)) (define (sockaddr:path obj) (vector-ref obj 1))
(define (sockaddr:addr obj) (vector-ref obj 1)) (define (sockaddr:addr obj) (vector-ref obj 1))
(define (sockaddr:port obj) (vector-ref obj 2)) (define (sockaddr:port obj) (vector-ref obj 2))
(define (sockaddr:flowinfo obj) (vector-ref obj 3))
(define (sockaddr:scopeid obj) (vector-ref obj 4))