From 38ac713c41bebe12fb81a39868c6bfd72ef12f06 Mon Sep 17 00:00:00 2001 From: bdc Date: Thu, 26 Sep 1996 20:08:06 +0000 Subject: [PATCH] socket-address->unix-address returns function not address --- Error-log | 3 +++ scsh/network.scm | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Error-log b/Error-log index 4603a52..dcd7ea9 100644 --- a/Error-log +++ b/Error-log @@ -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. diff --git a/scsh/network.scm b/scsh/network.scm index e0ed90e..f62150b 100644 --- a/scsh/network.scm +++ b/scsh/network.scm @@ -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)