From 38ac713c41bebe12fb81a39868c6bfd72ef12f06 Mon Sep 17 00:00:00 2001
From: bdc <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)