% 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;