socket-address->unix-address returns function not address

This commit is contained in:
bdc 1996-09-26 20:08:06 +00:00
parent 5b10faa3a1
commit 38ac713c41
2 changed files with 4 additions and 1 deletions

View File

@ -42,3 +42,6 @@ Reported by Kevin Esler 2 April 96. Fixed by bdc 26 Sept 96.
support for Solaris 2 on i386 in configure.in support for Solaris 2 on i386 in configure.in
Reported by Lutz Euler on 11 Jul 96. Fixed by bdc 26 Sept 96. Reported by Lutz Euler on 11 Jul 96. Fixed by bdc 26 Sept 96.
socket-address->unix-address returns function not address
Reported by Sean Doran 29 Jul 96. Fixed by bdc 26 Sept 96.

View File

@ -131,7 +131,7 @@
(not (= (socket-address:family sockaddr) (not (= (socket-address:family sockaddr)
address-family/unix))) address-family/unix)))
(error "socket-address->unix-address expects an unix socket ~s" sockaddr) (error "socket-address->unix-address expects an unix socket ~s" sockaddr)
socket-address:address)) (socket-address:address sockaddr)))
(define (make-addr af) (define (make-addr af)
(make-string (cond ((= af address-family/unix) 108) (make-string (cond ((= af address-family/unix) 108)