| version 1.43, 2004/09/14 10:50:49 |
version 1.44, 2004/09/16 23:53:44 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.42 2004/09/14 02:13:29 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.43 2004/09/14 10:50:49 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. |
| |
|
| Line 4271 $ [ff ff] fromVectors :: $ |
|
| Line 4271 $ [ff ff] fromVectors :: $ |
|
| [(list listToArray a) |
[(list listToArray a) |
| ]] putUsages |
]] putUsages |
| |
|
| /makeInfix { |
% Body is moved to smacro.sm1 |
| [(or_attr) 4 4 -1 roll ] extension |
|
| } def |
|
| [(makeInfix) |
[(makeInfix) |
| [(literal makeInfix) |
[(literal makeInfix) |
| (Change literal to an infix operator.) |
(Change literal to an infix operator.) |
![[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