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

(VALIDATE_INET6): Correction to bignum_in_ipv6_range_p

Browse source 
call.  Reported by Hyperdivision.
This commit is contained in:
Kevin Ryde 2004-04-24 21:04:58 +00:00
parent 6aef9d2b81
commit e8dde70d1f
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/socket.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1996,1997,1998,2000,2001, 2002 Free Software Foundation, Inc. /* Copyright (C) 1996,1997,1998,2000,2001, 2002, 2004 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
@ -408,7 +408,8 @@ bignum_in_ipv6_range_p (SCM address)
else\ else\
{\ {\
SCM_VALIDATE_BIGINT (which_arg, address);\ SCM_VALIDATE_BIGINT (which_arg, address);\
SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p);\ SCM_ASSERT_RANGE (which_arg, address, \
bignum_in_ipv6_range_p (address)); \
} }
#ifdef HAVE_INET_PTON #ifdef HAVE_INET_PTON