From 72b8df31c15a3082a4d1f7cbaf03f77cba25c401 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 30 Sep 1999 14:33:12 +0000
Subject: [PATCH] removed a bogus line that hang on a empty vector

---
 cig/libcig1.c | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/cig/libcig1.c b/cig/libcig1.c
index 0c38293..8dc64ee 100644
--- a/cig/libcig1.c
+++ b/cig/libcig1.c
@@ -126,19 +126,16 @@ void set_strvec_carriers(s48_value svec, char const * const * cvec)
     int svec_len = S48_VECTOR_LENGTH(svec);
     char const * const * cv = cvec;
     int i = 0;
-
-    s48_value s = S48_VECTOR_REF(svec,0);
-    
-    // JMG: now using normalarray access, instead of pointer++ an a s48_value
+       
+    // JMG: now using normal array access, instead of pointer++ on a s48_value
     for(; svec_len > 0; i++, cv++, svec_len-- ) {
       s48_value carrier, alien;
       int strl;
-      //      	fprintf(stderr, "i is %d, svec_len is %d ", i, svec_len);
+   
 	/* *sv is a (cons (make-alien <c-string>) <string-length>). */
 	carrier = S48_VECTOR_REF(svec,i);
 	alien = S48_CAR(carrier);
 	strl = strlen(*cv);
-	//fprintf(stderr, "strl is %d\n", strl);
 	S48_SET_CDR(carrier, s48_enter_fixnum(strl));
 	SetAlienVal(alien, (long) *cv);
     }