diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-07-10 14:35:36 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-10 14:35:36 +0000 |
| commit | a55c2b680920198892329bdf78c92ecc7553eb58 (patch) | |
| tree | 5dab8dec3f128c90a317b4a607d5d9382dfd8c85 /libguile/net_db.c | |
| parent | 7cee5b315a702049ba869150eb3d1658d38030d0 (diff) | |
| download | guile-a55c2b680920198892329bdf78c92ecc7553eb58.tar.gz | |
* validate.h, deprecated.h (SCM_VALIDATE_INUM, SCM_VALIDATE_INUM_COPY,
SCM_VALIDATE_BIGINT, SCM_VALIDATE_INUM_MIN,
SCM_VALIDATE_INUM_MIN_COPY,
SCM_VALIDATE_INUM_MIN_DEF_COPY,SCM_VALIDATE_INUM_DEF,
SCM_VALIDATE_INUM_DEF_COPY, SCM_VALIDATE_INUM_RANGE,
SCM_VALIDATE_INUM_RANGE_COPY): Deprecated because they make the
fixnum/bignum distinction visible. Changed all uses to scm_to_size_t
or similar.
Diffstat (limited to 'libguile/net_db.c')
| -rw-r--r-- | libguile/net_db.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c index b5c0c20e1..7076ce40b 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -333,12 +333,13 @@ SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0, SCM_VALIDATE_STRING (2, protocol); if (SCM_STRINGP (name)) { - entry = getservbyname (SCM_STRING_CHARS (name), SCM_STRING_CHARS (protocol)); + entry = getservbyname (SCM_STRING_CHARS (name), + SCM_STRING_CHARS (protocol)); } else { - SCM_VALIDATE_INUM (1, name); - entry = getservbyport (htons (SCM_INUM (name)), SCM_STRING_CHARS (protocol)); + entry = getservbyport (htons (scm_to_int (name)), + SCM_STRING_CHARS (protocol)); } if (!entry) SCM_SYSERROR_MSG("no such service ~A", scm_list_1 (name), errno); |