OpenXM/src/kan96xx/Kan/dr.sm1 - diff

Return to dr.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.43, 2004/09/14 10:50:49

version 1.45, 2004/09/17 00:10:41

Line 1

% $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.44 2004/09/16 23:53:44 takayama Exp $

%% dr.sm1 (Define Ring) 1994/9/25, 26

%% This file is error clean.

Line 4271 $ [ff ff] fromVectors :: $

[(list listToArray a)

]] putUsages

/makeInfix {

% Body is moved to smacro.sm1

[(or_attr) 4 4 -1 roll ] extension

} def

[(makeInfix)

[(literal makeInfix)

(Change literal to an infix operator.)

Line 4361 $ [ff ff] fromVectors :: $

Line 4359 $ [ff ff] fromVectors :: $

[(setMinus)

[(a b setMinus c)

]] putUsages

% Define some infix operators

/~add~ { add } def /~add~ makeInfix

/~sub~ { sub } def /~sub~ makeInfix

/~mul~ { mul } def /~mul~ makeInfix

/~div~ { div } def /~div~ makeInfix

/~power~ { power } def /~power~ makeInfix

/~put~ {

dup tag 3 eq { exec } { } ifelse put

} def

/~put~ makeInfix

;