Parent Directory | Revision Log | 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 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |