File r38/packages/alg/alg.red artifact fb5350dfcb part of check-in ab67b20f90


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 ]