/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by camm, Wed Jul 31 03:13:52 2002 UTC revision 1.10 by camm, Fri Aug 9 15:53:31 2002 UTC
# Line 282  DEFUNO("ASET", object, fSaset, SI, 1, AR Line 282  DEFUNO("ASET", object, fSaset, SI, 1, AR
282       int rank = n - 2;       int rank = n - 2;
283       if (x->a.a_rank != rank)       if (x->a.a_rank != rank)
284         FEerror(" ~a has wrong rank",1,x);         FEerror(" ~a has wrong rank",1,x);
285       if (rank == 0) return fSaset1(x,0,ii);       if (rank == 0) return fSaset1(x,make_fixnum(0),ii);
286       ASSURE_TYPE(ii,t_fixnum);       ASSURE_TYPE(ii,t_fixnum);
287       i = fix(ii);       i = fix(ii);
288       if (rank == 1)       if (rank == 1)
# Line 1142  object array,val,cursor; Line 1142  object array,val,cursor;
1142          object ind[ARRAY_RANK_LIMIT];          object ind[ARRAY_RANK_LIMIT];
1143          /* 3 args */          /* 3 args */
1144          ind[0]=array;          ind[0]=array;
1145          if (cursor==sLnil) {fSaset1(array,0,val); RETURN1(array);}          if (cursor==sLnil) {fSaset1(array,make_fixnum(0),val); RETURN1(array);}
1146          ind[1]=MMcar(cursor);          ind[1]=MMcar(cursor);
1147          i = 2;          i = 2;
1148          for (x = MMcdr(cursor);  !endp(x);  x = MMcdr(x))          for (x = MMcdr(cursor);  !endp(x);  x = MMcdr(x))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26