Artifact 3a197e4f30a96bae55af349b942e6f3a3cf213a54be6161d1b379bde0db5c46f:

• Executable file r37/packages/rtrace/reduce.rc — 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: 711) [annotate] [blame] [check-ins using] [more...]

• Executable file r38/packages/rtrace/reduce.rc — 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: 711) [annotate] [blame] [check-ins using]

% Model `reduce.rc' or `.reducerc' file to autoload support for
% portable REDUCE procedure tracing using the `rtrace' module.

% Author: Francis J. Wright, 5 May 1998

symbolic macro procedure rtr fns;  rtr!*('rtrace, fns)$
symbolic macro procedure unrtr fns;  rtr!*('unrtrace, fns)$
symbolic macro procedure rtrst fns;  rtr!*('rtraceset, fns)$
symbolic macro procedure unrtrst fns;  rtr!*('unrtrace, fns)$
flag('(rtr rtrst unrtr unrtrst), 'noform)$
deflist('((rtr rlis) (rtrst rlis) (unrtr rlis) (unrtrst rlis)), 'stat)$

symbolic defautoload(rtr!*, rtrace, expr, 2)$

switch rtrace$

put('rtrace, 'simpfg,
   '((t   (load_package '(rtrace)))
     (nil (load_package '(rtrace)))))$

end;