socket-address->unix-address returns function not address
This commit is contained in:
parent
5b10faa3a1
commit
38ac713c41
|
@ -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.
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue