/[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.44 by camm, Wed Oct 12 03:12:57 2005 UTC revision 1.45 by camm, Tue Nov 29 01:12:25 2005 UTC
# Line 357  DEFUNO_NEW("ASET", object, fSaset, SI, 1 Line 357  DEFUNO_NEW("ASET", object, fSaset, SI, 1
357    else    else
358      {      {
359       ASSURE_TYPE(ii,t_fixnum);       ASSURE_TYPE(ii,t_fixnum);
360         if (n!=3)
361           TYPE_ERROR(x,list(3,sLarray,sLA,list(1,sLA)));
362       i = fix(ii);       i = fix(ii);
363        return fSaset1(x,i,y);        return fSaset1(x,i,y);
364      }      }

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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