Artifact fb5350dfcbdea2871395b3635453d8e4360ab4229b35ce46452dbe123d51027c:


module alg;  % Header module for alg package.

% Author: Anthony C. Hearn.

create!-package('(alg alg!-form intro general farith numsup genmod
                  random smallmod zfactor sort reval algbool simp
		  exptchk simplog logsort sub order forall eqn rmsubs
		  algdcl opmtch prep extout depend str coeff weight
		  linop elem showrule nestrad maxmin nssimp part map),
                nil);

flag('(alg),'core_package);

put('alglist!*,'initvalue!*,'(cons nil nil));

% Some renamings so that no user operations in algebraic mode need an
% asterisk.

deflist('((eval_mode !*mode)
	  (cardno!* card_no)
	  (fortwidth!* fort_width)
	  (high_pow hipow!*)
	  (low_pow lowpow!*)
	  (root_multiplicities multiplicities!*)),
	'newnam);

endmodule;

end;


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]