removed a bogus line that hang on a empty vector

This commit is contained in:
marting 1999-09-30 14:33:12 +00:00
parent 2b3cb928b5
commit 72b8df31c1
1 changed files with 3 additions and 6 deletions

View File

@ -127,18 +127,15 @@ void set_strvec_carriers(s48_value svec, char const * const * cvec)
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);
}