mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* socket.c: Added declaration of inet_aton to avoid compiler

Browse source 
warning.  (Hope this solution is correct.)
This commit is contained in:
Mikael Djurfeldt 1996-08-23 16:18:38 +00:00
parent 1f99d12bc0
commit 82ddea4e8a
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/socket.c
View file

@ -27,6 +27,12 @@
int close P ((int fd)); int close P ((int fd));
#endif /* STDC_HEADERS */ #endif /* STDC_HEADERS */
#ifdef __STDC__
extern int inet_aton (const char *, struct in_addr *);
#else
extern int inet_aton ();
#endif
SCM_PROC (s_sys_inet_aton, "inet-aton", 1, 0, 0, scm_sys_inet_aton); SCM_PROC (s_sys_inet_aton, "inet-aton", 1, 0, 0, scm_sys_inet_aton);
#ifdef __STDC__ #ifdef __STDC__
SCM SCM