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
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)
address-family/unix)))
(error "socket-address->unix-address expects an unix socket ~s" sockaddr)
socket-address:address))
(socket-address:address sockaddr)))
(define (make-addr af)
(make-string (cond ((= af address-family/unix) 108)