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 ) ). */ 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); }