| version 1.34, 2004/09/01 05:06:09 |
version 1.35, 2004/09/09 03:14:46 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.33 2004/08/31 05:30:20 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.34 2004/09/01 05:06:09 takayama Exp $ |
| %% dr.sm1 (Define Ring) 1994/9/25, 26 |
%% dr.sm1 (Define Ring) 1994/9/25, 26 |
| %% This file is error clean. |
%% This file is error clean. |
| |
|
|
|
| } def |
} def |
| %%end of function |
%%end of function |
| |
|
| /rest { % returns remainder of a given list |
/rest { |
| [ 2 1 roll aload length -1 roll pop ] |
/arg1 set [(Krest) arg1] extension |
| } def |
} def |
| [(rest) |
[(rest) |
| [(array rest the-rest-of-the-array) |
[(array rest the-rest-of-the-array) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dr.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan