From 5cd0763723df4925852b1d44460d9c5526cd3dbc Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 7 Jan 2003 10:51:28 +0000
Subject: [PATCH] In socket-option operator and operand were swapped two times.

---
 scsh/network.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/scsh/network.scm b/scsh/network.scm
index 12b7a94..0ad8be6 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -570,15 +570,15 @@
 	((value-option? option)
 	 (%getsockopt (socket->fdes sock) level option))
 	((linger-option? option)
-	 (apply (%getsockopt-linger (socket->fdes sock) level option)
-		(lambda  (result/on-off time)
-		  (if (= result/on-off 0) #f time))))
+	 (apply (lambda  (result/on-off time)
+		  (if (= result/on-off 0) #f time))
+		(%getsockopt-linger (socket->fdes sock) level option)))
 	((timeout-option? option)
-	 (apply (%getsockopt-timeout (socket->fdes sock) level option)
-		(lambda (result/secs usecs)
+	 (apply (lambda (result/secs usecs)
 		  (cond ((= result/secs -1) 
 			 (error "socket-option ~s ~s ~s" sock level option))
-			(else (+ result/secs (/ usecs 1000)))))))
+			(else (+ result/secs (/ usecs 1000)))))
+		(%getsockopt-timeout (socket->fdes sock) level option)))
 	(else
 	 "socket-option: unknown option type ~s" option)))