| version 1.38, 2004/09/11 01:00:42 |
version 1.39, 2004/09/12 02:47:45 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.37 2004/09/10 13:20:23 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.38 2004/09/11 01:00:42 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 4252 $ [ff ff] fromVectors :: $ |
|
| Line 4252 $ [ff ff] fromVectors :: $ |
|
| [(list listToArray a) |
[(list listToArray a) |
| ]] putUsages |
]] putUsages |
| |
|
| |
/makeInfix { |
| |
[(or_attr) 4 4 -1 roll ] extension |
| |
} def |
| |
[(makeInfix) |
| |
[(literal makeInfix) |
| |
(Change literal to an infix operator.) |
| |
(Example: /+ { add } def ) |
| |
( /+ makeInfix) |
| |
( /s 0 def 1 1 100 { /i set s + i /s set } for s message) |
| |
( [ 1 2 3 ] { /i set i + 2 } map ::) |
| |
]] putUsages |
| |
|
| /usages { |
/usages { |
| /arg1 set |
/arg1 set |
![[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