* boot-9.scm (getservbyport, getservbyname): remove stray %.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 26f2bdd..b7bb418 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jan  8 05:50:14 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * boot-9.scm (getservbyport, getservbyname): remove stray %.
+
 Tue Jan  7 20:02:24 1997  Jim Blandy  <jimb@floss.cyclic.com>
 
        * boot-9.scm (and=>): Rename THUNK argument to PROCEDURE, 'cos

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 6e132d1..b24cc0a 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -650,8 +650,8 @@
 (define (getprotobynumber addr) (getproto addr))
 (define (getpwnam name) (getpw name))
 (define (getpwuid uid) (getpw uid))
-(define (getservbyname name proto) (%getserv name proto))
-(define (getservbyport port proto) (%getserv port proto))
+(define (getservbyname name proto) (getserv name proto))
+(define (getservbyport port proto) (getserv port proto))
 (define (endgrent) (setgr))
 (define (endhostent) (sethost))
 (define (endnetent) (setnet))