From d125af15594256da31089ca89af73bd72c770228 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 21 Aug 2007 16:05:49 +0000
Subject: [PATCH] Move S48_GC_UNPROTECT to proper place.

---
 scsh/network1.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scsh/network1.c b/scsh/network1.c
index 6ac0a11..a3df5a8 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -380,13 +380,14 @@ s48_value send_substring(s48_value scm_sockfd,
 		   buf_part, end-start, 
 		   flags,
 		   (struct sockaddr *)&name, sizeof(name));
-      break;
+	S48_GC_UNPROTECT();
+	
+	break;
       }
     default:
       s48_raise_argument_type_error (s48_extract_fixnum (scm_family));	
       /* error unknown address family */
     }
-  S48_GC_UNPROTECT();
   if (n >= 0)
     return s48_enter_fixnum (n);