Artifact 79faa53ca94786398940d1eefcbbedcd734f9f259832d151c2ac3be366ad7984:

• Executable file r37/packages/support/compat.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 954) [annotate] [blame] [check-ins using] [more...]

• Executable file r38/packages/support/compat.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 954) [annotate] [blame] [check-ins using]

MODULE COMPAT;

% Author: Anthony C. Hearn;

FLUID '(!*USERMODE);

GLOBAL '(SPARE!*);

SPARE!* := 10;

% This file defines functions and variables that are needed to 
% make REDUCE and the underlying PSL system compatible. It should
% be loaded as the first file whenever REDUCE services are required.

% Definitions of functions already defined in PSL

% PSL doesn't need PRINTPROMPT

REMFLAG('(PRINTPROMPT),'LOSE);

symbolic procedure printprompt u; nil;

flag('(printprompt),'lose);

% The following are all supported by PSL:

flag('(atsoc eqcar delasc mkquote aconc prin2t reversip union geq leq
        neq putc yesp),
      'lose);

flag('(rblock for foreach lprim repeat while),'user);  % to permit redef

symbolic procedure !*s2i u; u;

% These are needed until the PSL syslisp and trace modules are changed:

symbolic procedure definebop u; u;

symbolic procedure definerop u; u;

endmodule;

end;